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Le Boss est de retour et il n y est 
pas content : des individus 
louches essaient de lui ravir sa 
place. C y est pourquoi, aidé de 
son acolyte, (ça veut dire qu y on 
peut jouer à deux. Eh bien oui, 


on peut jouer à deux !) il va 
livrer bataille. Résultat des 
courses : c y est un véritable jeu 
de massacre où les munitions 
sont limitées alors que les 
ennemis, non . 


10 * >LA 
20 ’** ** >LB 
30 ’*» BOSS OF CHICAGO *» >LC 
40 ’** ** >LD 
50 '*# II ** >LE 
60 'K ** >LF 
70 * *# BY F.BARNABE H >LG 
80 ** >LH 
90 * >LJ 
100 1 >RB 
110 HQDE 1 : INK 0,0‘.BORDER 0:1 NK 1,1 >WL 
6:INK 2 9 10:INK 3,26 

120 SYMBOL AFTER 94 >NJ 
130 MEMORY 26000 >HA 




140 GOSUB 740 >HF 

150 FOR 1=26192 TO 26203:READ A$:PO >ZF 

KE l,VAL("A’*AI):NEXT 

160 DATA 1,0,40,11,50,66,21,0,00,ED >GC 

,B0,C9 

170 LÛCATE 1,10 >«H 

180 RESTORE 630:adresse=49340:taill >FA 

e=21:LIGNE=3:GOSUB 310 
190 RESTORE 310:adresse=49822:taill >FJ 
e=15:LlGNE=7:G0SUB 310 
200 PR INT CHR*(23)+CHR$(3);:TAG:ENV >ED 
1,30,0,1,127,-1,15 : SOUND 129,0,240 
,15,1,0,10 

210 PLOT -2,0,2:HOVE 260,394:PRINT" >NC 
BOSS OF*; 

220 PLOT -2,0,3:MOVE 256,398:PR INT" >NP 
BOSS OF"; 

230 PLOT -2,0,2:NOVE 200,50:PRINT"F >WG 
.BARNABE & CPC"; 

240 PLOT -2,0,3:HOVE 196,54:PRINT"F >WD 
.BARNABE & CPC": 

250 TAGOFF >VB 

260 RESTORE 260 : FOR 1=26192 TO 2620 >BZ 

3:READ A:POKE 1,A :NEXT 

270 DATA 1,0,64,17,0,192,33,92,102, >LR 

237,176,201 

280 FOR 1=26170 TO 26176:READ A$:PO >ZQ 
KE l,VAL("A"*AI):NEXT 


290 DATA CD,60,BB,32,41,66,03 >WD 

300 RUN’iCHICAGO* >MP 

310 ' >RE 

320 ’ LECTEUR DATA >RF 

330 ’ >RG 

340 FOR L=0 TO L1GNE:F0R Z=0 TO 7:F >CA 
OR V=0 TO tai1le:READ al 
350 IF LEN(al»2 THEN 380 >RZ 

360 POKE adressetU+Z*2048+L*80,VAL( >KX 
"A’*al> 

370 NEXT:NEXT:NEXT:RETURN >XU 

380 bl=HIDI(al,3,LEN(al)-2) >UY 

390 al=LEFTI(al,2) >LE 

400 FOR C=U TO U+VAL(b$)-1:POKE adr >HD 
esse+C*Z»2048+L»80,VAL("A*+AI) 

410 NEXT:W=W+VAL(bl)-1: GOTO 370 >ZF 
420 ' >RG 

430 ' DATA 1 >RH 

440 ’ >RJ 

450 DATA 004 ,2,6,0010,004,2,E,005, >KK 


F, 4,003,004,8,1,8,004,F, A,0,0,6,004 
,6,7,004,2,004,A 

460 DATA 004,3,0,004,7,F,9,8,1,4,00 >QV 
6,8,005,F,0,2,4,004,30,20,E,004,60, 


002,4,00,005,00,C,004,F0,00,0,9,E0 
470 DATA 004,30,Cl,8,0,003,F0,80,0, >HF 
16,F0,004,10,1,3,3,003,60,80,002, E0 
,004,4,3,B,7,0,E,5,30,8,0,7,20,004, 

4,F,3,7,1,E,4,8,4,0,7,8 

480 DATA 005,A,2,F,3,0,9,8,D,8,F,8, >CP 

004,1,9,4,D,1,D,B,2A,6,F,F,0,004,1, 

2,5,E,'3,D, B,2A,6,7, E,0,003,1,49,0,9 
,A,3,D,9,10,7,7,0,0 

490 DATA 003,6,E0,0,F,8,3,D,C,2E,6, >CE 
B,8,0,002,1,9,68,3,F,0,3,1,F,15,6,6 
,002,002,7,E,6,7,E,8,F,7,0E2,4,003, 

0,1, F, 19,89,F,A, 0,F,B,D,E,80,003 

500 DATA 0,7,9,E0,CD,F,A,0,F,7,D,E, >BL 

6,003,1,0,10,E0,45,F, 8,4,F,3,E,6, E, 

003,7,002,F0,46,C,1,C,E,B,F,6,E,003 

,6,0,0,70,2,0,3,8,E,0F2,A,E,003 

510 DATA 004,2,1,E,0,E,7,F,A,C,003, >HR 

005, F, 8,4,E,0F2,A,0,003,004,F,C,3,0 

,0,F,F,A,C,003,003,3,F,3,F,C,F0,7,F 

,A,E,003 

520 DATA 003,5,0,7,F,C,F0,7,F,A,E,0 >ZQ 
03,003, A, 8, D, F, C,E0,7, F, E, 0,003,003 
,C,9,B, 7,C, 0,7,F, A,E, 003,003,1,9,4, 

F,0,0,7,F,A,0,003 

530 DATA 003,1,3,B,F,0,0,7,F,E,4,00 >UB 
3,003,2,3,5,F,0,0,5,B,B,4,003,003,2 
,7,B,F,0,0,5,A,F,4,003,003,4,7,7,F, 

E,0, A,A,D, 4,003 

540 DATA 003,8,6,D,F,E,0,A,A,9,4,00 >FB 
3,002,1,8,5, B, F, E, 0, A, A, 9,2,003,002 
, 1,8, F, 7, F, E,0, A, A, 9, A, 003,002,3,0, 
E,F,F,E,0,A,D,5,A, 003 
550 DATA 002,3,0,F,7,F,E,0,E,D,5,A, >GA 
003,002,7,1, E, F, F, E, 0, C, D, 5, A, 003,0 
02,E,1,D,F,F,E,0,F,5,5,A,003,002,3, 

3,A,0F3,0,0,5,5,9,003 

560 DATA 003,F,D,0F3,0,D,053,003,00 >AH 

3.3, B, 0F3,1,5,6,5,5,003,003,3,0F4,1 
,1, A, 5,5,003,003,7,F,0,F,F,1,5,A,5, 
5,003 

570 DATA 003,6,4,5,3,E,1,5,A,5,5,00 >RH 
3,004,2,5,8,0,1,6,0,5,2,8,0,0,004,2 
, 6, A, 0,2,6,0,5,2,8,0,0,004,1,2.A, 0, 

2, A,0,5,2,8,0,0 

580 DATA 004,1,2,A,0,2,A,8,5,2,8,0, >GC 
0,005, A, A, 0,2,8,8,7, A, 8,002,004,1,1 
,0,0,2,F,0,4,7,8,0,0,005,4,002,3,00 
2,7,6,003 

590 DATA 005,F,0,0,2,F,8,3,F,003,00 >UY 

4.3, F, 0,002, F, 8,3, F, 8,002,004,3,0,0 
02,7,E,002,7,0,0,0,008,7,8,006,0016 


,0016,0016,0016 


600 » 

>RG 

610 ' DATA 2 

>RH 

620 » 

>RJ 

630 DATA 006,88, 

77,0014,0,0,11,CC,2 >EG 


2,0,CC,003,77,0,FF2,002,77,0,0,11,0 
F,0,0,0,67,3F,33,8,CF,77,0,11,8F,CC 
,CF,11,88,11,8F,CC,0,67,3B,8,0,0, EF 
,B,33,C,CF,77,C,33,8E,C,CF, 11,8E,33 
,8E,C,0,EF,8,80 

640 DATA 0,11,EF,8,33,0,CF,77,0,77, >JQ 
8E,0,CF,11,8E,77,8E,0,11,EF,8,46,0, 

11,EF,8,33,C,CF,77,0,77,8E,0,CF,11, 

8E,77,8E,0,11,EF,8,46 

650 DATA 0,33,EF,8,33,0,CF,77,0, FF, >MP 

8E,0,CF,11,8E,FF,8E,0,33,EF,8,23,0, 

33,EF, 8,33,FF,CF,77,0,FF,8E,0,FF,DD 

, 8E, FF, 8E, 0,33,EF,8,23 

660 DATA 0,33,EF,8,33,FF,CF,77,0,FF >RZ 

,8E,0,FF,DD,8E,FF,9F,EE,33,EF,8,23, 

0,11,EF,8,33,F,CF,77,0,77,8E,0,CF,1 

1,8E,77,8E,2F,11,EF,8,47 

670 DATA 0,11,EF,8,33,0,CF,77,0,77, >JD 

8E,0,CF,11,8E,77,8E,23,11,EF,8,46,0 

,0,EF,8,33,C,CF,77,C,33,8E,0,CF, 11, 

8E,33,8E,23,0,EF,8,8E 

680 DATA 0,0,67,3B,33,0,CF,77,0,13, >EA 

8E,CC,CF,11,8E,11,8E,CF,0,67,3B,4,0 

, 0,17, CF, 33,C,CF,77,0,0,7F,C,CF.11, 

8E,0,77,0,0,17,CF,8 

690 DATA 0,0,3,E,11,0,47,3,0,0,7,8, >AA 

47,0,8E,0,7,0,0,1,E,0,005,4,3,005,3 

,0,6,007 

700 DATA 0022,008,11,FF5,008,009,FF >«L 
5,80,007,009,7,6F,8,CF,F,E,007,0010 
,67,6,CF,009,0010,67,8,CF,009,0010, 

67,8,CF,009,0010,67,8, CF,009 

710 DATA 0010,67,8,CF,009,0010,67,8 >ZG 

,CF,009,0010,67,8,CF,009,0010,67,8, 

CF,009,0010,67,8,CF,009,0010,67,8,0 
F,009,009,FF4,EF,008,009,77,FF4,8,0 
07,009,3,0F4,0,007 

720 ’ >RK 

730 ’ SYMBOL,... >TA 

740 ’ >TB 

750 SYMBOL 96, fcFF,tFF, *<EF,&E3, fcC7,& >ML 

F7,AFF.AFF 

760 SYMBOL 97,AFF,AFF,AFF,AFF, AFF, A >NN 
FF.AFF,AFF 

770 SYMBOL 98,AAA,A55,AAA,A55,AAA,A >LR 
55,AAA,A55 

780 SYMBOL 236,A18,A42,A0,A81,A81,A >JN 


0,142,118 

790 SYMBOL 237,118,142,18,189,190,1 >KJ 
10,142,118 

800 SYMBOL 99,1FE,1AA,156,10,1EF,IA >GR 
A, 165 

810 SYMBOL 100,IFE,1FE,1FE,10,1EF,1 >HB 
EF.tEF 

820 SYMBOL 101,lFE,lEE,tC6,U0,tC7, >JE 
1EF.1EF 

830 SYMBOL 102,10,154,17A.17C,17E,1 >GH 
7C.13E 

840 SYMBOL 103,1EE,1EE,1EE,1EE,1EE, >PA 
1EE,1EE,1EE 

850 SYMBOL 104,17E,1C3,IBD,1BD,IBD, >NV 
IBD,1C3,17E 

860 SYMBOL 105,lâ,1FF,1FF,1A2,10,10 >JR 
,1FF,1FF 

870 SYMBOL 106,1AA,1AA,1AA,1AA,1AA, >NU 
IAA.IAA.IAA 

880 SYMBOL 107,1E0,1E0,1E0,1E0,1E0, >MU 
1E0.1E0.1E0 

890 SYMBOL 108,lFF,10,lFE,lFE,tFE,t >MQ 
FE.tFE.IFF 

900 SYMBOL 109,1D7,10,14B,155,14F,1 >LU 
57.14B.1D5 

910 SYMBOL 110,1FE,1FE,1FE,1FE,1FE, >PE 
IFE,1FE,IFE 

920 SYMBOL 111,17,17,17,17,17,17,17 >CC 
,17 

930 SYMBOL 112,118,134,134,134,134, >KF 
13C,10,130 

940 SYMBOL 113,10,11F,13F,17D,1F9,1 >LQ 
8A,18C,1F8 

950 SYMBOL 114,13,11,14,13,170,1ED, >FE 
15.13E 

960 SYMBOL 115,1D6.1B0,170,194,130, >MQ 
1F0,134,1E6 

970 SYMBOL 116,11E,167,161,1F1,1E0, >ME 
14A,11A,116 

980 SYMBOL 117,1A,1AF,1AF,1AF,16F,1 >ML 
FE.15E.11E 

990 SYMBOL 118,11,13,10,1E,13,10,10 >DV 

,110 

1000 SYMBOL 119,170,130,W, 190,1F8, >KR 
10,196,177 

1010 SYMBOL 120,124,15A,112,163,173 >LK 
,136,IE,13E 

1020 SYMBOL 121,133,16B,11D,120,175 >HN 
,135,12B.12B 

1030 SYMBOL 122,10,118,130,119,17F, >MB 
17E,170,130 

1040 RETURN >EJ 


CHICAGO 


10 ' 

IHIHIHIXHIIHIXII 

>LA 

20 » 

XX 

XX 

>LB 

30 ' 

xx BOSS OF CHICAGO 

XX 

>LC 

40 » 

XX 

XX 

>LD 

50 ’ 

xx II 

XX 

>LE 

60 » 

XX 

XX 

>LF 

70 • 

XX PAR F.BARNABE 

XX 

>LG 

80 » 

XX 

XX 

>LH 

90 ’ 

XXXXXXXXX«ftftX*XXXft«XX 

;LJ 

100 

1 


>RB 

110 

* INITIALISATION 


>RC 

120 

» 


>RD 


130 MODE 1:INK 1,16:INK 2,10 >UH 

140 «INDOU 12,3,38,2,17:PENI2,0:«IN >DG 
DOW #3,3,15,19,24:«1ND0« #4,26,38,1 
9,24:UIND0U #5,1,40,20,25 
150 GOSUB 1500 >PD 

160 FOR 1=1 TO 28:L0CATE 1,1+24:PR1 >LQ 
NT:NEXT 

170 CLS:INK 2,26:INK 1,10 >TZ 

180 PLOT 30,384,1:DRA« 608,384:DRA« >MU 
608,126:DRAW 30,126:DRAW 30,384 
190 PLOT 30,0:DRAW 30,U2:DRAU 240, >BK 
112: DRAW 240,0:DRAU 30,0 
200 PLOT 398,0:DRAW 398,112:DRAW 60 >FM 
8,112:DRAW 608,0:DRAU 398,0 
210 FOR 1=1 TO 24:L0CATE 1,1:PRINT' >HG 
a":LOCATE 40,1:PRINT*a":NEXT 
220 DIM LEVP0S(33,3) >PR 

230 LEVEL=1:GOSUB 1820:IF ARME=2 TH >HL 
EN 410 



270 PLOT -2,0,2:TAG0FF#1:PRIMT#1,CH >BA 

R*(23)+CHR#(3);:TAG#1 

280 MOVE XI,Yl:PRINT#l,CHRt(236): >BY 

290 J1=JOY(0) >LH 

300 1F (J1 AND 16)00 THEN IF CHAR1 >KF 

>-l THEN 600 

310 IF J1=0 THEN IF ARME=0 OR ARME= >UH 
2 THEN 410 ELSE 270 

320 PLOT -2,0,1:TAGQFF#1:PR1NT#1,CH >UX 
R*123> +CHR*(2); :TAG#1 :MOVE XI,Y1:PR 
1NT#1,CHR$(143); 

330 1F (J1 AND 1)00 THEN Y1=Y1H6 >ZB 

340 IF (J1 AND 2)00 THEN Y1=Y1-16 >ZF 

350 IF (J1 AND 4)00 THEN X1=X1-16 >ZG 

360 IF (J1 AND 8)00 THEN X1=X1 + 16 >ZK 

370 IF ARME=0 OR ARME=2 THEN 410 EL >FR 
SE 270 


380 ’ >TB 

390 ' VISEUR 2 >TC 

400 ' >RE 

410 PLOT -2.0,2:TAGOFF»1:PRINT#1,CH >BU 
R»(23)+CHR*(3);:TAG»1 
420 MOVE X2,Y2:PRINT#1,CHR#(236); >BU 
430 GOSUB 520 >HD 

440 IF (J2 AND 16)00 THEN IF CHAR2 >LL 
>-l THEN 750 

450 IF J2=0 THEN 1F ARME=0 OR ARME= >UN 
1 THEN 270 ELSE 410 

460 PLOT -2,0,1:TAGOFF#!:PRINTJ1,CH >UE 


R#(23)*CHR#(2);:TAG#1:M0VE X2,Y2:PR 
INT#1,CHR#(143); 

470 IF (J2 AND 1)00 THEN Y2=Y2+16 >ZK 
480 1F (J2 AND 2)00 THEN Y2=Y2-16 >ZP 
490 1F (J2 AND 4)00 THEN X2=X2-16 >ZQ 
500 IF (J2 AND 8)00 THEN X2=X2U6 >ZJ 
510 IF ARHE=0 OR ARME=1 THEN 270 EL >FL 


SE 410 

520 J2=0 >VG 
530 IF INKEY(0)=0 THEN J2=J2+1 >XM 
540 IF INKEY(2)=® THEN J2=J2+2 >XR 
550 IF INKEY(8)=0 THEN J2=J2+4 >XB 
560 1F ]NKEY(1)=0 THEN J2=J2+8 >XZ 
570 IF INKEY(47)=0 THEN J2=J2+16 >ZN 
580 RETURN >ZJ 
590 ' >TE 
600 ’ TIR1 >RG 
610 ' >RH 


620 IF X1/16+1<1 OR 26-Y1/16Ü OR X >JB 
1/16*1>40 OR 26-Y1/16726 THEN 330 
630 MOVE X1,Y1:PRINT#1,CHR$(237); >BY 
640 ENV 1,30,0,1,127,-1,15:S0UND 12 >TY 
9,0,240,15,1,0,10 


5 






• • 


650 PLOT -2,0,1:TAG0FFI1:PR1NTI1,CH >UD 
R*(23)+CHR*(2); :TAG#1 :HOVE XI,Y1 : PR 
INT»1,CHR*(143); 

660 D1 :LOCATE X1/16+1,26-Y1/16:CALL )HT 
26170:A*=CHR*(PEEK(26177)):EI 
670 IF A*="d" THEN DklOCATE X1/16+ >CP 

1.26- Yl/16:PRINT"e":El 

680 IF A*)"p" AND Yl>50 THEN X=X1:Y >TG 
=Y1 :GOSUB 880 :SCOREl=SCOR£l+SCORE:D 
1:LOCATE 10,20:PRINT SCOREl:EI 
690 IF A*="a* THEN DI :LOCATE X1/16+ )JD 

1.26- Y1/16:PRINT CHR*(96):El 

700 HUN 11=HUN11-1:DI :LOCATE 4+MUNI1 >EA 
,22:PRINT" ":EI:IF HUN11=0 THEN HUN 
11=9:CHAR1=CHAR1-1:DI :LOCATE 4+CHAR 
1,24:PRINT’ »:EI : IF CHARlO-1 THEN 
DliLOCATE 4,22:PRINT STRINGX9.V) 


: E1 

710 GOTO 330 >ZA 
720 ’ )RK 
730 ' TIR2 >TA 
740 ’ >TB 


750 IF X2/16+1Ü OR 26-Y2/16<l OR X >JP 
2/16+1)40 OR 26-Y2/16)26 THEN 460 
760 HOVE X2,Y2:PRINT»1,CHR*(237); >BE 
770 ENV 1,30,0,1,127,-1,15:S0UND 12 >TC 
9,0,240,15,1,0,10 

780 PLOT -2,0,1:TAGOFFf1 : PR I NT»1,CH )VB 
R*(23)+CHRt(2);:TAG»l:H0VE X2,Y2:PR 
1NT»1,CHR*(143); 

790 DI:LOCATE X2/16+l,26-Y2/16:CALL >HZ 
26170:A$=CHR$(PEEKI26177)):EI 
800 IF A*="d" THEN DI :LOCATE X2/16+ >CL 

1.26- Y2/16:PRINT"e":El 

810 IF A*)"p* AND Y2)50 THEN X=X2:Y >TN 
=Y2:GOSUB 880 : SC0RE2=SC0RE2+SCORE :D 
I:LOCATE 33,20:PR INT SC0RE2:EI 
820 1F A*="a" THEN DI:LOCATE X2/16+ >JA 

1.26- Y2/16 : PR I NT CHR*(96):El 

830 HUN12=HUN12-1 :DI:LOCATE 37-HUNi >HF 
2,22:PRINT" *:EI: IF HUNI2=0 THEN HU 
N12=9 : CHAR2=CHAR2-1 : D1 : LOCATE 37-CH 
AR2,24:PR1NT" ":EI:IF CHAR20-1 THE 
N DULOCATE 29,22:PR1NT STRINGX9," 


p"):EI 

840 GOTO 460 )ZJ 
850 ’ >TD 
860 ’ ICI L’ENNEMI HEURT... >TE 
870 ’ >ÎF 


880 DI:BORDER 6 : ENEH I=ENEH1-1 :ATUER >XE 
=ATUER-1 :SCORE=10:1F ATUER=0 AND A* 
<>*q" THEN LEVEL=LEVEL+1 :CLSt2:LOCA 


TE »2,1,1:PRINT»2,REHAIN(0):GOSUB 1 
820 :E1 :SCORE=15 :RETURN 
890 IF A*="r" THEN LOCATE X/16+1,26 >VZ 
-Y/16 : PB 1 NT"f f":LOCATE X/16+1.27-Y/ 

16 : PR I NT"f f " : BORDER 0:EI : RETURN 

900 IF A*="s" THEN LOCATE X/16,26-Y >PJ 

/16:PRI NT"f f * :LOCATE X/16,27-Y/16:P 

RINT"ff*:BORDER 0:E1 :RETURN 

910 IF A*="t* THEN LOCATE X/16+1,25 >VR 

-Y/16 : PRiNT"f f":LOCATE X/16+l,26-Y/ 

16 : PR I NT" f f " : BORDER 0:EI :RETURN 

920 1F A*="u" THEN LOCATE X/16.25-Y )PL 

/16 : PR I NT"f f":LOCATE X/16,26-Y/16:P 

RINT"ff":BORDER 0:EI :RETURN 

930 IF A*="v" THEN LOCATE X/16+1,26 >TL 

-Y/16:PBINT" ":LOCATE X/16+1.27-Y/ 

16:PR INT* *: BORDER 0:E1:RETURN 

940 IF A»="w" THEN LOCATE X/16,26-Y >LP 

/16:PRINT" *:LOCATE X/16,27-Y/16:P 

R INT" ":BORDER 0:E1:RETURN 

950 IF A*="«* THEN LOCATE X/16+1,25 )TN 

-Y/16:PRINT" ":LOCATE X/16+l,26-Y/ 

16:PRINT* ":BORDER 0:EI:RETURN 

960 IF A*="y" THEN LOCATE X/16.25-Y >LR 

/16:PRINT" * :LOCATE X/16,26-Y/16:P 

R INT" ":BORDER 0:E1:RETURN 

970 IF A$="z* THEN LOCATE X/16+1,26 >GG 

-Y/16:PRINT"f":BORDER 0:Ei:SCÛRE=15 


:RETURN 

980 IF A*="q" THEN 1440 >PQ 
990 ’ >TJ 
1000 ' U, IL REVIT )XD 
1010 ’ )XE 


1020 GOSUB 1100:CH=1NT(RND«33)+1 )AA 
1030 X3=LEVP0S(CH,1):Y3=LEVPOS(CH,2 >FX 
) 

1040 IF LEVPOStCH,3)=4 THEN LOCATE )DK 
X3,Y3:PRINT"q":RETURN 
1050 LOCATE I3,Y3:CALL 26170:B$=CHR >KZ 
*(PEEK126177) ) : IF B*<)" " AND B»<)" 

{" THEN RETURN 

1060 IF LEVP0S(CH,3)=1 THEN LOCATE )ZV 
X3,Y3: PR I NT"z":ENEHI=ENEHI♦l:RETURN 

1070 LOCATE X3+1,Y3:CALL 26170:B*=C >NY 
HR*(PEEK(26177)):IF B*<>" " AND B*< 

>"f" THEN RETURN 

1080 IF LEVPÛS(CH,3)=2 THEN LOCATE >RD 
X3,Y3:PRINT"v«":L0CATE X3,Y3+1:PRIN 
T"«y": ENEHI=ENEHI+ 1 :RETURN 
1090 If LEVPUS(CH,3)=3 THEN LOCATE ;RN 
X3,(3:PKINl"i3":LUCATE X3.Y3*1:PRIN 


T"tu":ENEHI=ENEHI+1:RETURN 
1100 ’ >IE 

1110 'PERTE VIE >XF 

1120 ’ >IG 

1130 IF ENEHI<5 THEN RETURN ELSE IF )PQ 

INT(RND*2+1)=1 THEN 1140 ELSE 1170 
1140 ’ )XJ 

1150 IF ARHE=2 THEN 1180 ELSE VIE1= >XQ 


V1E1+5:IF VIE1/10=INT(VIE1/10) THEN 
LOCATE l,25-VIEl/10:PRINT"b":lF VI 
El>235 THEN 1200 

1160 RETURN >FB 

1170 ’ )YB 

1180 IF ARHE=1 THEN 1150 ELSE VIE2= >ZR 

VIE2+5:IF V1E2/10=INT(VIE2/10) THEN 
LOCATE 40,25-VIE2/10:PRINT"b":IF V 
IE2>235 THEN 1230 

1190 RETURN >FE 

1200 CLS03:LOCATE 5,22:PRINT"GAHE O )JN 

VER" 

1210 PLOT -2,0,1 :TAGOFFi1 : PR INT0 1 ,C >WX 
HR*(23) +CHR» (2 ) ; : TAGH : HOVE X1, Y1 : P 
R 1 NT# 1, CHR* (143); 

1220 IF ARHE)0 THEN 1260 ELSE ARHE= >LG 
2:RETURN 

1230 CLSI4:LOCATE 28,22:PRINT"GAHE )KK 
OVER" 

1240 PLOT -2,0,1:TAGOFF#1 : PR INT01,C >VC 
HR*(23)+CHR*(2); :TAG»1 :HOVE X2,Y2: P 
RI NT»1,CHR$(143); 

1250 1F ARHE)0 THEN 1260 ELSE ARHE= )U 
1:RETURN 

1260 FOR 1=1 TO 3000:NEXT >TK 

1270 WHILE INKEY»<)"":«END >VR 

1280 LOCATE 1,25:F0R 1=1 TO 28:PR1N >JP 
T :NEXT 

1290 INK 1,16:INK 2,10 )PZ 

1300 TAG0FF»1:PRINT»1,CHR*(23)+CHR* )PB 
(3I;:TAGI1 

1310 X=50:Y=200:A*="SCORE JOUEUR 1" )QP 
:GOSUB 1380 

1320 X=50:Y=160:A*=STR*(SCORE1):GOS )LF 
UB 1380 

1330 X=400:Y=200:A*="SCORE JOUEUR 2 >RK 
":GOSUB 1380 

1340 X=400 : Y=160 : A*=STR* ( SC0RE2 ) : GO >HX 
SUB 1380 

1350 FOR 1=1 TO 2000:NEXT >TJ 

1360 LOCATE 1,25:FOR 1=1 TO 27:PRIN )JH 
T:NEXT 

1370 RUN )BK 

1380 PLOT -2,0,2:HOVE X, Y:PRINT»1,A >FD 

*i 




1390 PLOT -2,0,3:HQVE X-4,YU:PRINT >JK 


•1,A*; 

1400 RETURN >EJ 
1410 ' >XJ 
1420 ' ENCORE DES CHARGEURS... >XK 
1430 ’ >YA 


1440 ENEM1=ENEHI +1:ATUER=ATUER11: SC >NA 
ORE=50 

1450 LOCATE X/16+1,26-Y/16:BORDER 0 >CN 
1460 IF EFF=1 THEN PRlNT"b":EI ELSE >QU 
PRINT" ":EI 

1470 IF X=X1 AND CHARK10 THEN CHAR >FV 
1=CHAR111:DI :LOCATE 3+CHAR1,24:PRIN 
T"q":El 

1480 IF X=X2 AND CHAR2<10 THEN CHAR )GQ 
2=CHAR2*1 :DI :LOCATE 38-CHAR2.24 : PR I 
NT"q":EI 


1490 RETURN >FH 
1500 ’ >IJ 
1510 ’ PRESENTATION >XK 
1520 ’ >YA 
1530 RESTORE 1710:CLS >QB 
1540 PRINT »1,CHR4(23)+CHR4(3);:TAG >EG 
<1 

1550 UH ILE OK=0 >CH 


1560 GOSUB 1670:1F A4="l* OR A4=*0" >FV 
OR A4="2" THEN OK=l:GOTO 1650 
1570 PR1NTI1,"(0) 2 JOUEUR KEY/JOY" >KU 
; :GOSUB 1700:PR1NT01,"(0) 2 JOUEUR 
KEY/JOY"; 

1580 GOSUB 16/0:IF A4="l" OR A4="0" >FX 
OR A4="2" THEN OK=l:GOTO 1650 
1590 PRINTI1,"(1) 1 JOUEUR JOYSTICK >PG 
"; :GOSUB 1700:PRINT»1,"(1) 1 JOUEUR 
JOYSTICK'; 

1600 GOSUB 1670:1F A4="l" OR A4="0" >FP 
OR A4="2" THEN OK=l:GOTO 1650 
1610 PRINT01,"(2) 1 JOUEUR CUVIER" >KG 
GOSUB 1700:PRINT»1,"(2) 1 JOUEUR 
CUVIER*; 

1620 GOSUB 1670:1F A4="l" OR A4="0" >FR 
OR A4=*2" THEN OK=l:GOTO 1650 
1630 MOVE 200,50:PRINT«1,*F.BARNABE >LZ 

A CPC"; 

1640 GOSUB 1700:HOVE 196,54:PRINT*1 >ZA 


,"F.BARNABE A CPC"; 

1650 UEND:ARME=VAL(A4) >RG 
1660 RETURN >FG 
1670 GOSUB 1710:CLStS >PK 
1680 A* = 1NKEY* >UK 


1690 PLOT -2,0,2:HOVE 150,50:RETURN >DD 
1700 PLOT -2,0,3:HOVE 146,54:RETURN >DF 


1710 ' >YB 

1720 ’ MUSIQUE >YC 

1730 ’ >YD 

1740 ENT -1,1,1,5,2,-1,5,1,1,5:ENV >XV 

1,5,3,2,9,-1,20,5,-1,2 

1750 FOR 1=1 TO 4:READ S,D:1F S=1 T >DM 

HEN RESTORE 1710:READ S,D 

1760 1F S=0 THEN SOUND 1,0,D*50,4:S >LE 

OUND 2,0,0*50,4 ELSE SOUND 1,S,D*50 

,14,1,1:SOUND 2,S/2,D»50,13,0,1 

1770 NEXT:RETURN >HD 

1780 DATA 379,1,284,2,379,1,284,1,3 >BY 

38,2,379,1,426,1,379,3,0,0.1,379,1, 

284,2,379,1,284,1,338,2,379,1,426,1 

,379,3 

1790 DATA 284,1,213,2,284,1,213,1,2 >RZ 
53,2,284,1,319,1,284,3,379,1,284,2, 
379,1,284,1,338,2,379,1,426,1,379,3 
1800 DATA 0,1,358,1,284,1,239,1,253 >EY 
,2,239,1,213,1,190,0.5,213,1,239.0. 

5,284,2,0,1,358,1,284,1,239,l,253,2 

.239,1,213,1,319,3,0,1 

1810 DATA 358,1,284,1,239,1,253,2,2 >DU 

39,1,213,1,190,0.5,213,1,239,0.5,28 


4,2,0,1,1,0 

1820 ’ >YD 
1830 ’ CHANGEMENT TABLEAUX >YE 
1840 ' >YF 
1850 BORDER 0 >JE 


1860 IF (LEVEL-1 )75= INT((LEVEL-11/5 >YH 
) THEN RESTORE 1860 

1870 CLSI2:LOCATE 18,9:PRINT"LEVEL" >KD 
LEVEL 

1880 FOR 1=1 TO 1000:NEXT >TR 

1890 CLSI2:CLS03:CLSI4: FOR 1=1 TO 1 >CA 
6 

1900 READ A4:LOCATE 3,1+1:PRINT A4: >GZ 
NEXT 

1910 Xl=256:Yl=254:X2=352:¥2=254:EN >JC 
EM I =0 : CHAR 1=4 : MUN11 =9 : CHAR2=4 :MUN 12 ' 

=9:IF ARME=0 THEN ATUER=80 ELSE ATU 
ER=50 

1920 FOR 1=1 TO 33:READ LEVPOSd.l) >AZ 
,LEVPOS(I,2),LEVPOS(1,3):NEXT:READ 
EFF 

1930 IF ARME02 THEN LOCATE 4,22:PR >LR 
INT STRING4(9,"p*):LOCATE 4,24:PRIN 
T'qqqq":LOCATE 4,20 : PR INT'SCORE:"SC 
0RE1 

1940 IF ARMEOl THEN LOCATE 29,22:P >RE 
RINT STRING419,"p"):LOCATE 34,24:PR 
INT'qqqq":LOCATE 27,20 : PR INT’SCORE: 


"SC0RE2 

1950 IF ARME=2 THEN LOCATE 5,22:PR1 >TC 
NT'GAME OVER* 

1960 1F ARHE=1 THEN LOCATE 28,22:PR >UE 
INT'GAME OVER" 


1970 EVERY 52-LEVEL*2,0 GOSUB 

1020 >BT 

1980 RETURN 


>GB 

1990 * 


>ZB 

2000 ' DATA TABLEAUX 


>IE 

2010 » 


>XF 

2020 DATA"bbbbbbb 


bfbfb >QH 

bb" 



2030 DATA"bbbbbbb 


bbbbb >QE 

bf" 



2040 DATA"iiiiiii 


bfbfb >RE 

bb" 



2050 DATA B ddddddf 


bbbbb >QZ 

bf" 



2060 DATA"ffdffdd 

bbbbbfbfb >XB 

aaaaaa" 



2070 DATA'ffdffdf 

bfbfbbbbb >XE 

ccaaaaa" 



2080 DATA"ildiidd aaaaaaaaafbfb >YA 

cc bb" 



2090 DATA’ddddddfcddddk 


occdd >CP 

ddddccaaana" 



2100 DATA"iiiiiiicddddk 

bbb 

occdd >EP 


ddddccaaana" 

2110 DATA’ddddddfcddddahaaaaahaccdd >GF 
ddddccaaana" 

2120 DATA"f fdf fddcdddaaaa j j jaaaacdd >GX 
ddddccaaana" 

2130 OA I A"i1dlldl Cddd aalljoa Ccd /LJ 
ddddccaaana" 

2140 ÜAl'A"iidiiddcddd aajjjaa ccd >EU 
ddddccaaana" 

2150 DATA"ddddddfcddd iiiiiiiii ccd >FJ 
ddddccaaana" 

2160 DATA'dddddddbbbb bbbbbbb bbb >DG 
bbbbbbbbbbb" 

21/0 OATA"ddddddfbbbbbbbbbbbbbbbbbb >GU 
bbbbbbbbbbb" 

2180 DATA 3,6,3,6,6,3,10,7,2,11.7.2 >QK 

,12,7,2,13,7,2,15,6,2.16,6,2,17,6,2 

,16,9,2,21,9,2,28,7,2,29,7,2,30,7,2 

2190 DATA 20,7,1,22,7,1,24,8,1,24,6 >QZ 

,1,24,4,1,24,2.1,26,2,1,26,4,1,26,6 

,1,26,8,1,38,3,1,38,5,1,3,6,3,6,6.3 

,3,12,3,6,12,3,11,16,4,28,17,4,34,1 

6,4,1 

2200 DATA"" >QH 

2210 DATA'aa iibllb" >ZE 





2220 DATA" c ggiggi >HC 

iib" 

2230 DATA"ancddddddddddddiibiibdddd >HG 
dggjddddddd" 

2240 DATA"ancddddddddddiibiibiibddd >HM 
diibddddddd" 

2250 DATA"ancddddddddddggjggjggjddd >HK 
iibiibddddd" 

2260 DATA"ancddddddddddiibiibiibddd >HG 
ggjggjddddd" 


2270 DATA" 
iibiib" 


iiiib 

>KC 

2280 DATA" 

iiiib" 

iiiib 

nnnnj 

>RG 

2290 DATA" 
nnnnj" 

nnnnj 

nnnnj iib 

>VY 

2300 DATA" 
nnnnj" 

nnnnj 

iiiib ggj 

>ÜX 

2310 DATA" 
iiiib" 

iiiib 

iiiibiiiib iib 

>XW 


2320 DATA"iiiibiiiibnnnnjnnnnj i >FF 

iiibiiiibii" 

2330 DATA"nnnnjnnnnjnnnnjnnnnj n >GF 

nnnjnnnnjnn" 

2340 DATA w nnnnjnnnnjiiiibiiiib n >GU 

nnnjnnnnjnn" 

2350 DATA"iiiibiiiib i >YF 

iiibiiiibii" 

2360 DATA 6,3,2,8,3,2,10,3,2,12,3,2 >PV 

,14,3,2,16,3,2,24,3,2,26,3,2,27,3,2 

,29,2,2,30,2,2,32,3,2,34,3,2,36,3,2 

2370 DATA 3,12,2,4,12,2,11,12,2,14, >PY 
11,2,15,11,2,21,11,2,24,9,2,25,9,2, 
27,12,2,28,12,2,29,12,2,30,12,2,31, 
12,2,21,11,2,11,12,2,4,12,2,24,15,4 
,12,9,4,27,9,4,0 
2380 DATA" 
aaaaaaaaaaa" 

2390 DATA" 
iiiiaaaaaaa" 

2400 DATA" 
iiiiaaaaaaa” 

2410 DATA" b1 
iiiiaaaaaaa" 

2420 DATA"ddddda(ddddddddcccaa aaa >DF 
a affaffa" 

2430 DATA"cddda1■1dddcddiibcaa k >CC 
o affaffa" 

2440 DATA"ddddalBiddddddggjcaa aajj >FL 
aa aiiaiiB" 

2450 DATA"dddBlBlBidddcciibdaa bajj >GA 


abalaaaaaaB" 

2460 DATA"dddBi b 1 b 1ddddiibiiba biii >HJ 
ibalaaaaaai” 


2470 DATA" 

ggjggj 


>MR 

Bl 

n 



2480 DATA" 

iiiib iibiib 


>AU 

2490 DATA" 

nnnnj 

iii 

>PB 

ibiiiib" 




2500 DATA" 

nnnnj 

nnn 

>PD 

njnnnnj" 




2510 DATA" 

«iiii 

iiiib 

nnn 

>P2 

njnnnnj" 




2520 DATA"i 

iiibiiiib 

■ j» 

ni 

>TC 

ibiiiib" 




2530 DATA"nnnnjnnnnj 

iiiib 

>ZC 

iiiibiiiib" 

i 



2540 DATA 3 

1,4,2,5,4,2,8,3,2, lfl 

4,2, 

>EG 

12,4,2,14,4 

1,2,14,4,2,16,4,2,9, 

14,2, 


11,14,2,23, 

15,2,25,11,2,27,11, 

2,29, 


11,2,31,11, 

2,33,11,2,35,15,2,30,7,2 


2550 DATA 36,6,3,33,6,3,8,3,2, 

10.4, 

>TY 

2,12,4,2,14,4,2,16,4,2,9,14,2, 

11, 14 



,2,23,15,2,25,11,2,30,7,2.14,11,4,3 

3,11,4,17,17,4,0 

2560 DATA" Bdddddddddddadddcccc >DE 

ccddddddddd" 

2570 DATA" addccccdddddaddddddd >DG 

ddddddddddc" 

2580 DATA"bbbb iiiiiiiiiiiiiiiiiiii >HP 
iiiiiiiiiii" 

2590 DATA"fbfb b b" >WY 

2600 DATA"bbbb adddcccccdddaddddddd >GG 
dddddddcccc" 

2610 DATA"fbfb acddddccddddaddddffd >GJ 
ffdffddddcc” 

2620 DATA"bbbb acdffdffdddcaccddffc >GK 
ffdffdddddd" 

2630 DATA"fbfb accffdffdcccacdddiic >GL 
iiciidddddd" 

2640 DATA"bbbbbflcdiidiiccccBCcddccc >GY 
dcccdddddcc" 

2650 DATA"f bf bfaddddddddcccacdddf fc >HJ 
ffdffdffddc" 

2660 DATA"bbbbbacdffdffdddcaddddffd >HK 
ffdffdffddd" 

2670 DATA"fbfbfaddffdffddddaccddiid >HA 
iidiidiiddd" 

2680 DATA"bbbbbBddiidiiddddaldddddd >HU 
ddddddddddd" 

2690 DATA"fbfbfaddddddddddda1dddf fd >HD 
ffdffdffddd" 

2700 DATA"albbbaddffcffdffalaidcffc >HB 


ffdffdffdal" 

2710 DATA"alfbfaddffcffcffalalcciic >JB 
iidiidiidal" 

2720 DATA 3,5,1,3,7,1,3,11,1,3,13,1 >YJ 
,3,15,1,5,7,1,5,9,1,5,13,1,5,15,1,7 
,17,1,7,15,1,7,13,1,7,11,1,4,15,4,6 
,17,4 

2730 DATA 11,8,3,14,8,3,11,12,3,14, >BM 
12,3,11,16,3,14,16,3,17,16,3,25,7,3 
,25,11,3,25,15,3,28,15,3,28,11,3,28 
,7,3,31,7,3,31,11,3,31,15,3,34,15,3 


,34,11,3,1 

274® DATA"" 


>RG 

2750 DATA" 

ni 

k 

fffffbbbb 

>KX 

0 

2760 DATA" 

k 

fffffbbbb 

>KY 

0 

2770 DATA" 

k 

fffffbbbb 

>HV 

aa" 

2780 DATA" 

ak 

aaaafffffbbbb 

>RK 

aaa" 

2790 DATA" 

ak 

aaaafffffbbbbaaa 

>UF 

aaa" 
2800 DATA" 

nak 

aaaafffffbbbbaaa 

>XA 

ffffbb" 

2810 DATA" 

nak 

aaaafffffbbbbaaa 

>XB 

ffffbb" 

2820 DATA" 

nnn 

bbbbbbbfffffbbbbffff 

>CF 

faaffffbb" 

2830 DATA" 

nnn 

bbbbbbbfffffbbbbffff 

>CG 


faaffffbb" 

2840 DATA"nnnn bbbbbbbfffffbbbbffff >GV 
faaffffbbaa" 

2850 DATA"nnnn bbbaaaaaaaaaaabbffff >GM 
faaffffbbaa" 

2860 DATA"ffffffbbfffaafffaaabbffff >GR 
faaffffbbaa" 

2870 DATA"ffffffbbff faaf f faaabbf f f f >GU 
faaffaaanaa" 

2880 DATA"ffffffbbfffaafffaaabbffff >GV 
faaffaaanaa” 

2890 DATA"ffffffbbfffaafffaaabbffff >GN 
fabbbaaanaa" 

2900 DATA 16,4,1,18,4,1,17,5,1,15,5 >VV 
,1,18,6,1,19,6,1,15,7,1,18,8,1,16,8 
,1,17,9,1,15,9,1,16,10,1,18,10,1,16 
,12,1,17,12,1,13,17,1,5,16,1,6,15,1 
,7,16,1 

2910 DATA 6,17,1,12,15,1,12,17,1,13 >UA 
,16,1,16,15,i,18,14,1,25,11,1,26,12 
,1,26,14,1,28,15,1,9,17,4,22,17,4,3 
2,10,1,33,14,1,1 


aaaaaaa >UA 
aaiiiii >UE 
aaiiiii >UW 
aaiiiii >WU 
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Ce mois-ci, c f est la seconde 
partie de Annuaire 
qui est publiée : ANN1 . 
Pour ce qui 





Annuaire 


2ème partie 


L e programme présenté sauvegarde 
le fichier "MINITEL" après chaque 
modification. Si vous modifiez les quel¬ 
ques lignes suivantes, vous n'aurez plus 
à passer par le programme principal pour 
chacune d'elle et vous pourrez en faire 
plusieurs à suivre. 



est de Vinitialisation 
et du mode d f emploi, 
voir le numéro 
précédent . 


2100 ON r GOSUB 2200 , 2400 y 2700 , 575:GOTO 2060'** remplacer 575 par 
530 

2800 GOSUB 170:GOSUB 750 

2810 ON r GOTO 2770 , 2820:GOTO 2800 

2820 GOSUB 170:GOSUB 870:GOSUB 3130:KETUKN 

3140 WRITE#9,nfi:IFnfi=0 THEN 3180 


annl_ 

v, 10 ’annuaire->annl >LA 

MO GOTO 280’-> deaarrage prograaae >TA 

30 ’rr-—11-rr- ' f >LC 

40 'routine fenetre >LD 

50 'IIIHIIKOIH* >LE 

60 'dise en place >LF 

70 >;;;==i;===r:= >LG 

v 80 UIND0W# 1. g, d, h, b : PAPER» 1. cpa : PEN >UP 
ll,cte:CLSIl 

90 y=((b-htl)»16)-2:i=((d-g+l)«16)- >BM 

2 

>100 MÛVEI(g-1)» 16) +1, 400- (b*16)U,c >EE 
gr,0 

'110 DRAVR 0,y:DRAUR *,0:DRAUR 0,-y: >NC 
0RAUR-i,0 

120 HOVER 0,2:DRAVR i-2,0:DRAVR 0,y >EJ 

-2 

130 MOVER-6,-4:DRAWR-(k-12),0:DRAWR >NR 

0,-(y-12) 

>140 MINDOMl,g*l,d-l,h+l,b-l:CLSIl: >KB 
RETURN 


150 'effaceaent >RG 

160 •====:=—== >RH 

'170 MIND0WI1,g,d, h, b : PAPER# 1.0:CLS# >PU 
1:RETURN 

180 ’ T -. >8K 

190 'procedure double hauteur >TA 

200 'iiiiiiHiiniiiiiiiHHi >RC 


\210 FOR dh=l TO LEM(dhi): c=H 1MEM+1+ >HN 
8*lASC(HID4(dh$,dh,l))-32):SYMBOL 2 
53,0, PEEK(c),PEEK(c >,PEEK(c+1),PEEK 
(c+1), PEEK(c+2).PEEK(c+2),PEEK t c+3) 

: SYMBOL 252,PEEK(c+3),PEEK(c+4),PEE 
K Cc+4), PEEKtc+5).PEEK(c*5),PEEK tc*6 
), PEEK Cc+6),0 

M20 LÛCATEI1, x, y:PRINT* 1,CHRi(253) >DD 
>230 L0CATE»1,*,y+1 : PB I MT#1,CHR*(252 >EX 

) 

>240 x-r*l:SÛUND l,50*dh,12:MEXT dh: >LP 
RETURN 

250 ’v-. ' >RH 

260 'initialisation >RJ 

270 'hhhiiiiihi >RK 

>280 CLEAR:CLEAR INPUT: MODE 1:BORDER >VU 
0:INK 0,13:INK 1,0:1 NK 2.25:INK 3, 

10 

v '290 g=7:d=34:h=8:b=20:cpa=l:cte=3:c >TB 
g r =2 :GOSUB 80 

">300 SOUND 1,284,10:L0CATE»1,5,2:PRI >HU 
NTI1,"PAS D'ACCES DIRECT" 

310 SOUND 1,142,10:LÛCATE»1,2,4 : PR 1 >TC 
NTI1,"JE VOUS PASSE SUR 'ANN'" 

>320 SOUND 1,71,10:L0CATEI1,5,8:PRIN >ER 
Tll,"*-* PATIENCE ! *-*’ 

>330 SOUND 1,36.10:RUN"ann.bas" >AJ 

500 ’m- \ >RF 

510 ’«enu general >RG 

520 '**»**»**»*»* >RH 


v530 ’g=7:d=34:h=8:b=20:cpa=l:cte=3: >RJ 
cgr-2:G0SUB 80 

> 540 ’LOCATEIl,1,1 : PR 1 NT » 1."« MENU P >RK 
R ! NC ! PAL" 

V 55Û 'PLOT 112,252,0 : DRAW 364,252 >TA 

>560 ’L0CATEU,3,3:PRINTIl,voule >TB 
z-vous :" 

>570 'RESTORE 610:F0R i=5 TO 10:READ >TC 
at:L0CATEIl,2,i:PRINTU,a*;:NEXT:S 
OUND 1,142,10:GOTO 580’*» suppnaer 


GOTO 580 

\575 CLS : ùSCREENSUAP ,1.2’» *-- >UZ 

'580 GOSUB 630 >JB 

590 r=INSTRl"1CMAPR",ri) >UG 

>595 ÙSCREENSWAP,1,2'** >QA 


>600 ON r GOSUB 1030,1030,1030,2010, >UB 
4010,1030:G0T0 575'** reaplacer GOT 
0 575 par GOTO 530 et aettre les li 
gnes 530 a 570 et 610 
>610 'DATA "» Initialiser l’annuaire >RH 
","* Consulter un fichier","* Hodif 
ier un fichier","* Accès Minitel"," 

* Pages inforaations","* Revenir au 
lanceur" 


620 'Attente >RJ 

''630 r*=’":r»=UPPER*UNKEY*):IF r»=" >LW 
"THEN 630’Attention ne pas changer 
la foraule 

>640 RETURN >ZF 

700 ' - 

710 ’Sous-prograaae >RJ 
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720 '*********»*X** >RK 

730 * continuation, arrêt >TA 

740 '=================== >TB 


N 750 g=6:d=35:h=22:b=24:cpa=3:cte=2: >UY 
cgr=l:GOSUB 80 

> 760 SOUND l,71,12:LÜCATE»i,l,l:PRIN >ET 
Til,"Vouiez-vous continuer (0/N)?"; 


>770 GOSUB 630 >JC 
^780 f=INSTR(*ON',i») >PH 
' 790 RETURN >AB 
> 800 'diaensionneaent des tableaux >RJ 

810 * ============================ >RK 


" 820 ERASE app»,cod»,serl»,ser2»,ser >LE 
3$,ciel 

'A830 DIH appt(20),cod»(20),ser11(20) >VZ 
,ser2t(20),ser3t(20),clet(20):RETUR 
N 

x 840 RETURN >ZH 

850 'patience >TD 

860 ’======== >TE 

s 870 g=li:d=30;h=21;b=24:cpa=l:cte=0 >VJ 

:cgr=2:GOSUB 80 

x 880 dh»="PATIENCE ! S.V.P";x=2:y=l: >YU 
GOSUB 190: RETURN c> <0 

1000 .-.-.>ÏD 

1010 'Retour au prograaae principal >IE 

1020 'llimiHHHIIHIIliiHiilH >IF 

1030 ERASE app»,cod»,serl»,ser2»,se >HL 
r3»,cie» 

1040 GOSUB 870:CHAIN"ANN.BAS",1100 >CU 


2000 .-.- >IE 

2010 'pages ainitel >ÏF 

2020 '**********»»* >XG 


^2030 CLS:g=2ïd=39:h=2:b=4:cpa=0:cte >YR 
=2îcgr=lïG0SUB 80 

2040 LQCATEtl,5,l:PRINTIl,"*-* “ A >BP 
CCES MINITEL " *-«• 

2050 GOSUB 820:GOSUB 3030'->chargea >TW 
ent fichier «initel 

v 2060 g=5:d=36:h=i0:b=17:cpa=l:cte=3 >VN 
:cgr=2:G0SUB 80 

X2070 LOCATEti,l,l:PRlNTtl,"_Voule >HD 

z-vous :":L0CATEtl,4,3:PRINTti,"* C 
onsulter le fichier*:L0CÀTEtl,4,4:P 
RINTii,•* Ajouter une fiche":LOCATE 
tl,4,5:PRÎNTfi,"* Supriaer une fich 
e":L0CATEIl,4,6:PRINTil,■» Retour a 


u aenu principal":SOUND 1,142,10 
v 2080 GOSUB 630 >PJ 

x 2090 r=INSTR("CAS»,r») >RX 

'• 2100 ON r GOSUB 2200,2400,2700:GOTO >ER 

— 575'reaplacer GOTO 575 par GOTO 
530 

2200 'Consulter le fichier >IG 

2210 »==================== >XH 


'"2220 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YT 
=2:cgr=l:G0SUB 80 

n 2230 L0CATEI1,1,1:PR1NT»1,"*-* “ CO >QQ 
NSULTATION DU FICHIER " «-»*; 
x 2240 1=0:1F nf 1=0 THEN LOCATE 8,22: >UQ 
PRINT"»-* FICHIER VIDE ! «-«'îSOUN 
D 1,284,12:RETURN 

'-2250 FOR 11=1 TO 10 >LY 

x »2260 i=i+l:y=5::GOSUB 2920:i=i+l:y= >RR 
13:GOSUB 2920 

x 2270 GOSUB 750 >QC 

M280 ON r GOTO 2300,2290: GOTO 2270 >AD 
v 2290 f i=10 >KG 

> 2300 NEIT:RETURN >HT 

2400 'Ajouter une fiche >XJ 

2410 »================= >IK 

N2420 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YV 
=2:cgr=l:G0SUB 80 

^aj30.L0CATEIl,3,l:PRINTIl,"x-x " A >HJ 
JOUTER UNE FICHE " *-«" 

>2440 IF nf 1=20 THEN LOCATE 8,22:PRI >RU 
NT"x-t FICHIER PLEIN ! *-»":SOUND 
1,284,12:RETURN 

'*2450 nfi=nf Hl:fi=nfi >RH 

>2460 LOCATE 3,5:PRINT"MINITEL":L0CA >ZU 
TE 25,5:PRINT*Fiche "îfiîFOR i=7 TO 
12:LOCATE l,i:PRINT CHR$(18):NEXT 
v -2470 g=7:d=34:h=22:b=24:cpa=t:cte=2 >VU 
:cgr-2:G0SUB 80 

v 2480 LOCATEUR, 1:PRINTI1,"3613, 36 >CP 
14, 3615, ou autre"; 

' 2490 SOUND 1,71,12:LOCATE 1,7:PRINT >VM 
'CRr$(18);:PRINT"N* d'appel : ... 

.";LOCATE 16,7:1NPUT"", app$( fi ): IF 
LEN(app»(fi))>4 THEN 2490 
^2500 GOSUB 170 >PE 

\2510 SOUND 1,71,12:L0CATE 1,8:PRINT >MP 
*CHR$(18); :PRINT"Code d'accès : ... 

.":LOCATE 16,8:INPUT"",cod»(fi) 

:cod$(fi)=UPPER»(cod»(fi)):iF LEN(c 
od»(fi))>8 THEN 2510 

" 2520 g=7:d=34:h=21:b=24:cpa=l:cte=0 >NE 
Icgr=2:GOSUB 80:LOCATE»1,6,1:PRINT» 

1,"Vous disposez de":LOCATE»1,i,2:P 
RINTII,"3 lignes de 25 caractères" 

» 

^2530 SOUND 1,71,12:L0CATE 1,9:PR!NT >MY 
CHR»(18);"Service : ";STRING»(27," 

. w ):LOCATE U,9:LINE INPUT"",serl$( 
fi): IF LEN(serl»(fi))>27 THEN 2530 
x 2540 SOUND 1,71,12:L0CATE 2,10:PRIN >LQ 
T CHR»(18);STRING»(36,"."):L0CATE 2 
,10:LINE INPUT"",ser2»(fi):lF LEN(s 
er2$(fi))>36 THEN 2540 
v 2550 SOUND 1,71,12:L0CATE 2,11:PRIN >LX 
T CHR»(18);STRING»(36,"."):LQCATE 2 
,1i:LINE INPUT"",ser3»(fi):lF LEN(s 
er3»(fi))>36 THEN 2550 


x2560 GOSUB 170 >QA 

- 2570 SOUND 1,71,12:LOCATE 5,12:PRIN >ZH 

T CHR$( 18) ; "Mot clé : __":LOC 

ATE 15,12:LINE INPUT"",cle»(f ihcle 
$(fi)-UPPER»(cle$(fi)): IF LEN(cle$( 
fi))>8 THEN 2570 

>2580 IF nfi=20 THEN LOCATE 8,17:PRI >UR 
NT"*-» FICHIER PLEIN ! *-*":SQUND 
1,284,12:G0T0 2620 

>2590 GOSUB 750 >QH 

>2600 ON r GOTO 2610,2620:GOTO 2590 >AF 
- 2610 GOSUB 170:GOTO 2450 >RG, 

>2620 GOSUB 170:GOSUB 870:G0SUB 3130 >LH 

:RETURN 

2700 'Supriaer une fiche >YB • 

2710 »================== >YC 

>2720 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YY - 
=2:cgr=l:GOSUB 80 

y z@û LOCATEUR, 1:PRINTI1,"*-X " S >KL 
UPPRIMER UNE FICHE " *-* 

>2740 FOR i=l TO 10:L0CATE 5,i+5:PRI >ZC 
NT USING"ll";i;:PRlNT"* ";cod»(i):N 
EXT 

s2750 IF nfiül THEN 2770 >QZ 

>2760 FOR i=U TO nfi:LOCATE 22,1-5: >DY 
PRINT USlNG"ll";i;:PRlNT"* ";cod»(i 
):NEXT 

\2770 g=2:d=39:h=22:b=24:cpa=l:cte=2 >VX 
:cgr=2:GOSUB 80 

*2780 CLEAR INPUT:SOUND 1,71,12:L0CA >EG 
TE»l,2,i:PRINT»l,CHR»(18);"Nuaéro d 
1 e la fiche à supriaer : ..":LOCATE» 
1,34,1:iNPUTIl,"",i:IF i>20 THEN 27 
80 

s2790 app»(i)="":cod»(i)="":serl»(i) >MH 
' ="":ser2»(i)="":ser3»(i)="":cle»(i) 

="":nfi=nfi-1 

>2800 GOSUB 170:GOSUB 870:G0SUB 3110 >LF 


:RETURN 

2900 'lister la fiche >YD 

2910 *=============== >YE 


*2920 LOCATE 3,y:PRINT CHR»(18);"N* >ML 
d'appel : "app»(i):LOCATE 3,y+l:P 
RINT CHR»(18);"Code d'accès : ";cod 
$(i) 

>2930 LOCATE I,y+2:PRINT CHR»(18);"S >YK 
ervice : ";ser1$(i):LOCATE ll,y+3:P 
RINT CHR»(18);ser2»(i):LOCATE 11,y* 

4 : PR I NT CHR»(18);ser3»(i) 
v '2940 LOCATE 8,y+5:PRINT CHR»(18);"M >ZF 
ot cle : ";cle»(i) 

>2950 PRINT STR ING»(38,"I");:PRINT:R >LD 


ETURN 


3010 'chargeaent fichier ainitel >XG 

3020 'xxxxxxxxxxxxxxxxxxiixxitxx >XH 

'■'3030 GOSUB 870:0PEN1N*H1N1TEL.ANN’ >EA 

A3040 INPUTI9,nfi >LV 

'3050 FOB i=l TO nfi >HZ 
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^ 3060 INPUTI9,appt(i),codé(i),ser14( 
i),ser24(i),ser34(i),cle4(l) 

<3070 NEÏT 
<3080 CLOSE l N 

<3090 GOSUB 170:RETURN *' J 


3100 ’ rTîTTT'TtTrt 

3110 'sauvegarde fichier ainitel 


3120 'HHIIlilHmililHKHII 
^3130 ÛPEN0UT"MINITEL.ANN" 
y3140 tfRITEI9,nfi 

^ 3150 FOR 1=1 TO 20:IF app$(i)=""THE 
N 3170 

V3160 yRITEI9,app$(i),cod$(i) f ser1$( 
i),ser24(1),ser34(1),c1e$(1) 

^ 3170 HEXT 
^3180 CLOSEOUT 

*3190 PRINT CHR$(21):ù£RA,"MINITEL.B 
AK^PRINT CHRK6) 
v 3200 RETURN 

4000 . 

4010 ’ inf oraations 


4020 » 

4030 CLS::g=2:d=39:h=2:b=4:cpa=0:ct 
e=2:cgr=i:G0SUB 80 

'"* 4040 LOCATEUR, l:PRlNTIl,*»-« " I 
NFORHATIONS “ *-•" 

N 4050 LOCATE 1,5:PRIMT* ) Ce prograu 
e a été conçu de façon àce qu’une 
personne ne connaissant rienà l’inf 
oraatique ou à un ordinateurpuis 
se l’utiliser sans problèaes.* 

' 4060 LOCATE 1,10:PRINT* t Tous les 
aenus, écris claireaents, .sont 
appelés par une aajuscule. j| To 
utes les erreurs sont traitées." 
x 4070 LOCATE 1,14:PRIMT” * Les char 
geaents ou sauvegardes de fichi 
ers sont autoaatiques. .|[j j(( ! ,Un 
fichier plein se charge ou se 
sauve en quinze secondes aaxiaua. 
4080 LOCATE 1,19:PRINT" » La routi 
ne 'AZERTY' (CPH-PLUS) est, 'jcoapa 
tible avec une lapriaante.t 1 1 \ mPo 
ur les claviers français il faut i' 
la suppriaer.” 

4090 GOSUB 4360:ON r GOTO 4100,4390 
:G0T0 4090 

v 4100 FOR i=10 TO 23:L0CATE l,i:PRIH 
T CHR$(18):NEXT 

**4110 LOCATE 1,10:PRINT" * Lors de 
la preaière utilisation, j j [il fa 
ut initialiser les prograaaes) [||"A 
NN” et "ANN1\ Pour cela faire 
4120 LOCATE 5,13:PRINT"LQAD"ANN", p 
uis "GOTO 2400 ■■ 

4130 LOCATE 5,U:PRlNT"LÛAD"ANNr, 
puis "GOTO 3KXT" 

4140 LOCATE 5,1S:PRIHT , RUN ,, ANN" pou 
r relancer." 


>LM 

>LB 

>MB 

>QB 

>XG 

>XH 

>XJ 

>VR 

>LQ 

>FU 

>LH 

>LC 

>2C 

>YD 

>EJ 

>XG 

>IH 

>XJ 

>ZE 

>AA 

>UY 


>BC 


>vx 


>PE 


>LV 

>UF 

>ZM 


>BN 

>CP 

>AA 


4150 LOCATE 7,18:PR1NT"DES LORS TOU >JR 
T SERA SIMPLE !":LOCATE 9,20:PR INT" 


«-* BON TRAVAIL !! **" 

4160 GOSUB 4360:ON r GOTO 4170,4390 >LY 
:G0T0 4160 

4170 CLS#i:LÛCATEIl,6,l:PRlNTIl,"t- >HE 
i “ DEPARTEMENTS M «-*" 

4180 FOR i=4 TO 22:L0CATE l,i:PRINT >TY 
CHR$(18):NEXT 

4190 LOCATE 1,5:PR1NT"AIN >WG 

.. 01 AISNE .. 02ALL1ER ... 

. 03 ALPES HTE PROV. 04HAUT AL 

PES .... 05 ALPES MARITIMES 06ARDE 
CHE . v .,.. 07 ARDENNES „.., % 08A 

RIEGE. 09 AUBE. 

10AUDE . 11 AVEYRON . 

.. 12"; 

4200 PRINT"BELFÛRT (TERR) 90 BOUC >TG 
H. DU RHONE 13CALVAD0S 14 C 

ANTAL nuvv . 15CHARENTE .. MU 16 
CHARENTE MARIT. 17CHER 
18 CORREZE 19C0RSE DU SUD 

.. 2A HAUTE CORSE ... 2BCQTE D’OR 
21 COTES DU NORD . 22"; 

4210 PR1NT"CREUSE. 23 DORD >TP 

ÛGNE. 24D0UBS. 25 D 

ROME. 26EURE. 27 

EURE ET LOIR .. 28FINISTERE . 

29 GARD . 30HAUTE GARONN 

E . 31 GERS .. r 32" 

4220 GOSUB 4360:ON r GOTO 4230,4390 >LN 
:GOTO 4220 

4230 LOCATE 1,5:PRINT"GIKONDE . >AB 

.. 33 HERAULT. 34ILLE ET VI 

LAINE 35 INDRE . 36INDRE E 

T LOIRE 37 ISERE . 36JURA 

. 39 LANDES. AOL 

OIR ET CHER .. 41 LOIRE . 

42HAUTE LOIRE ... 43 LOIRE ATLANTI 


Q. 44"; 

4240 PRINT"LOIRET. 45 LOT >NZ 

. 46L0T ET GARONNE 47 L 

OZERE . 48HAINE ET LOIRE 49 

HANCHE. 50HARNE ... 

51 HAUTE HARNE ... 52HAYENNE .... 

... 53 HEURTHE ET NOS 54HEUSE ... 

. 55 HORBIHAN. 56"; 

4250 PRINT"HOSELLE. 57 NIEV >ZK 

RE ........ 58N0RD 59 0 

ISE. 600RNE. 61 

PAS DE CAUIS . 62PUY DE DOME ... 

63 PYRENEES ATLAN. 64HAUTES PYREN 
EES 65 PYRENEES ORIEN. 66" 

4260 GOSUB 4360:0N r GOTO 4270,4390 >LB 
:GOTO 4260 

4270 LOCATE 1,5:PRINT"BAS RHIN .... >BK 

..67 HAUT RHIN.68RH0NE .... 

. 69 HAUTE SAONE ... 70SA0NE E 


T LOIRE 71 SARTHE .. 72SAV0 

IE 73 HAUTE SAVOIE .. 74S 

EINE MARITIME 76 DEUX SEVRES ... 

79S0HME. 80 TARN .. 

.. 81"; 

4280 PRINT’TARN ET GARONNE 82 VAR >IP 

.. 83VAUCLUSE .. 84 V 

ENDEE. 85VIENNE .. 86 

HAUTE VIENNE .. 87V0SGES . 

88 YONNE v ........ 89" 

4290 FOR i=15 TO 23:L0CATE l,i:PRIN >UX 
T CHR$(18):NEXT 

4300 GOSUB 4360:ON r GOTO 4310,4390 >LK 
:G0T0 4300 

4310 FOR 1=5 TO 23:L0CATE l,i:PRINT >TV 
CHR)(18):NEXT 

4320 LOCATE B,6:PRINT"*-* REGION PA >TT 
RISINNE *-•" 

4330 PR INT :PR INT"ESSONNE. 91 >QV 

HAUTS DE SEINE 92PARIS .. 

75 SEINE ET MARNE 77SEINE ST DEN 
IS 93 VAL DE HARNE .. 94VAL D’OIS 

E .... 95 YVELINES. 78* 

4340 LOCATE 12,15:PRINT"*-« OUTRE-H >RT 
ER *-«":PRINT:PRINT*GUADELOUPE 971 
GUYANNE 973HARTINIQUE 9 
72 REUNION 974ST PIERRE 

U MIQUELON 975 MAYOTTE 976* 

4350 GOSUB 4360:0N r GOTO 4030,4390 >LV 
:GOTO 4350 

r*4360 SOUND 1,71,12:U0CATE 3,23:PRIN >PV 
T CHR4124);* "Suite" ou “Retour «en 


u general" *;CHR»<24) 
v 4370 GOSUB 630 >QC 

• 4380 r=lNSTR("SR*,r») >QG 

4390 RETURN >FK 

5000 ’. >XH 

5010 ’lapression >U 

5020 ’m****»»** >IK 


v 5030 g=3:d=38:h=21:b=24:cpa=l:cte=3 >VN 
:cgr=2:G0SUB 80 

s 5040 SOUND 1,142,12:L0CATEI1,1,1:PR >JR 
INTIl,*_Voulez-vous iapriaez :":L0 


CATEI1,7,2:PRINT*1,"* la Fiche « 
l’Adresse" 

'5050 GOSUB 630 >PJ 

v5060 r=INSTR("FA",r4) >QV 

v5070 ON r GOSUB 5120,5420:GOTO 5040 >BG 

5100 ’lapression d’une fiche >XJ 

5110 ’«===«««««=====« >IK 

v 5120 GOSUB 170:g=6:d=3S:h=22:b=24:c >AX 


pa=l:cte=0:cgr=2:G0SUB 80:L0CATEI1, 
2,l:PRlNTIl,*Iapression de la fich 
e’;fic;:S0UND 1,284,12 
’\5130 PRlNTi8,CHR$(27);"à*;CHR»(27); >JV 
*D*;CHRt(2);CHR$(40);CHR$(0) 

-5140 PRlNTt8,CHR4(13);* 1=======" >NH 






















































''•5150 IF LEFT$(nat(fic), DOM'THEN >FC 
5170 

'•5160 PR1NT#8,CHR»(9>;"! ’;CHR*(27); >JT 
•p";CHH»(l);'»* , ;MIM(n«»(fic),2); 
CH£i(27);"p*;CHB*(0);CHR«(9);’!*:G0 
T0 5190 

'5170 PRINTt8,CHB$(9);*! *;CHR*(27); >YF 
*W*;CHR$(1);*»« •;CH8*(27)i*E’;ni*( 
llc);CH8$(27);*F*;CHB$(27);"U*;CH8$ 

(0);CHR$(9):■!" 

'5180 P8INTI8,CH8$(9);"! ’;CHR»(27); >Hfl 
■U*;CW»(l);'f r • •;CH8*(27);"E*; 
piM»(flc);CH8»(27);*F»;CHR»(27);*«" 
;CHR$(0);CHR*(9);V* 

^ 5190 PBINTI8,CHB«(9);"! *;CH8*(9);' >D8 

I" 

• 

5200 P8!NTI8,CHS$!9!;"! *;"ADSESSE )RB 
: *;CHR>(27);"E*;adU<f le) ;CHR*(27) 
;"F*;CHR$(9);*!* 

' 5210 PRIMT*8,CHR»(9);V V >HP 

«;CHR*(27);"E«;ad2*(fle);CFffi*(27ï 
;*F*;CH8*(9);"!* 

v 5220 PRINTI8,CHR«(9);V >HR 

*;CHRI(27); , E*;ad3)(fle);CHR)(27) 
;*F*;CHR$(9);"!' 

' 5230 P8INTI8,CHR$(9);*! ’jCHRIO);* >DL 

I" 

5240 PRINT»8,CHR*(9); B ! B ;"Téléphon >TJ 
e domicile : B ;CHRI(27); B E B ;tell$(fi 
c);CHR$C27);*F";CHR$(9);*!" 

5250 PRIHTI8,CHR$(9); B ! B ;"Téléphon >RP 
e travail : B ;CIffi$(27); B E B ;tel2$(fi 
c);CHR$(27);*F W ;CHR$(9);•!" 

5260 PRINT«8,CHR$(9);”! B ;CHR$(9); B >DP 
!" 

5270 PRINT*e.CHR*(Q>;■! *;CHB*<27); >UC 
"E";"* Renseignements : # ;CHR$(27);" 
F B ;CHRt(9); B ! B 

x * 5280 P81NTI8,CH8*(9);«! ';CHR»(27); >GL 
■E*; 1 .— *;CHR$(27);*F" 

I | 

\ 


;CHR$(9);"! B 

^ 5290 PRINTi8,CHR$(9);"! B iCHR*(9)î" >DT 

^5300 PRINTI8,CHR$(9);"! B ;CHR$(27); >EH 
V "EV- ";CHR$(27); W F*;renl$(fie);CH 
Rt(9);"!■ 

v 5310 PR1NTI8,CHR$(9);"! •;CHR$(27); >EK 
"E - ; 1 - B ;CHR$(27);"F B ;ren2$(fic);CH 
R$(9); B !" 

^ 5320 PRINTI8,CHR$(9);"! ";CHR$(27); >EM 
"E";"- *;CHR$(27);"F*;ren3$(fic);CH 
R$(9);"!" 

v 5330 PRINTI8,CHR$(9);"! •;CHR$(27); >EP 
B E B ; B - *;CHR$(27) ;"F B ;ren4$(fic);CH 
R$(9) ; •’! * 

^5340 PRINT 18,CHR$(9);"! •;CHR$(27); >ER 
•E 1 ;*- ";CHR$(27);"F*;renS$(fie);CH 
R$(9);"!• 

5350 PRINTI8,CHR$(9);"! , ;CHR$(27); >EÜ 
B E B ; B - B ;CHR$(27);"F B ;ren6$(fic);CH 


R$(9); B ! B 

v 5360 PRINTI8," 1================== >B« 

8888888888888888888 |. r V 

v 5370 G0SUB 750 „ >QG 

*5380 ON r GOTO 5120,5650:GOTO 5370 >AU 
5400 'Impression d’adresse >YB 

5410 »==================== >YC 

^ 5420 CLStlîLÛCATEtl,1,1:PR!NTI1, B Ch >BZ 
oississez le format d’enveloppe:*;: 
L0CATEIl,5,2:PRlNTIl, B x Petit i H 
oyen * Grand":SOUND 1,142,12 
^5430 GOSUB 630 >QA 

* 5440 r=INSTR( B PNG",r$) >RN 

^5450 IF r=l THEN xx=15:tav=8: lop=21 >DH 

V5460 IF r=2 THEN xx=19:tav=13:lop=2 >EB 
5 

^5470 IF r=3 THEN xx=32:tav=13:iop=2 >EY 
5 


| 5480 IF LEFT$(na$(fic),1)="I B THEN n >R2 


■$(fic)-MID$(na$(fic),2): GOTO 5550 
‘'5490 tet$="":G0SUB 170:g=5:d=36:h=2 >IE 
2:b=24:cpa=3:cte=2:cgr=l:G0SUB 80:L 
ÛCATEI1,1,1:PR1NTI1,"Voulez-vous un 
e entête (0/N) ?";:SÛUND 1,71,12 
*5500 GOSUB 770 >QD 

^5510 ON r GOTO 5520,5550:GOTO 5500 >AL 
^5520 g=4:d=37:h=21:b=24:cpa=0:cte=l >VP 
:cgr=2:G0SUB 80 

*5530 LOCATEil,1,1:PR1NTI1,"Ecrire : >PC 
Hr,Hae,Mr A hae,Hrs,etc B 
5540 SOUND 1,71,12:L0CATEIi,13,2:PR >JP 

INT»1,CHRI(18);:PRINTI1,%.. B ; 

îLOCATEIl,13,2:INPUTI1, BB ,tetl:IF L 
EN(tet$)>8 THEN 5540 

. 5550 GOSUB 170:g=3:d=38:h=21:b=24:c >HR 
pa=l:cte=2:cgr=2:G0SUB 80 
5560 LOCATEi1,1,1:PRINTil," Hettre >IG 
l’enveloppe guide à gauchedans 1’la 
primante, puis <ESPACE> B :SOUND 1,36 
,15:CALL &BB06 

557g PR1NTI8,CHR$(27);"à B ;CHR$(27); >CL 
B C B ;CHR$(Iop);CHR$(2 7);"B B ;CHR$(tav 
);CHR$(0);CHR$(27);"8" 

\5580 PRINT»8,CHR4(ll):PRlNTI8,SPC(x >AE 
x-LEN(tetl));CHR$(27);"E B ;CHR$(27); 
B G B ;tet$;" B ;na$(fic);" B ;pna$(fic) 
;CHR$(27);"H B 

N 5590 PRINTt8:PRINTI8,SPC(ix+5);adl$ >KK 
(fie) 

5600 PRINTI8,SPC(xx+5);ad2$(fic) >BL 
^5610 PRINTI8:PRINTI8,SPC(xx+8);CHR$ >HB 
(27);"G B ;ad3$(fic);CHR$(27); B H";CHR 
$(27); B F" 

x 5620 PRINTI8,CHR$(12) * >QA 

v 5630 GOSUB 170::GOSUB 750 >TT 

K '5640 ON r GOTO 5550,5650:GOTO 5630 >AZ 
% 5650 GOSUB 170:GÛSUB 870:CHAIN"ANN. >NK 
BAS",1075’remplacer 1075 par 103 
0 
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Bulletin valable jusqu'au 31 mai 


Je joins à cet envoi, mon règlement de 90 F au nom de : 

EDITIONS SORACOM - La Haie de Pan - 35170 BRUZ. 
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10 REM*********************« >TJ 

20 REM*** MOITIE *** >NH 
30 REM*** Henri Chauvet *** >VQ 

40 REM********************** >TM 

50 * >LE 

60 GÛSUB 230:’titre ;KB 

70 ’ >LG 

80 GÛSUB 480:'initialisations >LA 

90 ’ >LJ 

100 GÛSUB 1350:’choii du niveau >XE 

110 ’ >RC 

120 GÛSUB 1710:'entree du nos >XG 

130 ’ >RE 

140 GÛSUB 1900:’récitation >XK 

150 ’ >RG 

160 GÛSUB 3530:'fin d’exercice >YC 

170 GOTO 140 >YK 

180 ’ >RK 

190 REM************* >MM 

200 REM»** titre *** >ME 

210 REM************* >ME 

220 ’ >RE 

230 MODE 0:CALL iBCÛ2 >PD 

240 CLG >RJ 

250 ON SQ(1) GÛSUB 370 >PE 

260 FOR i=l TO 88 >DF 

270 x=x+4:y=y+4 >HD 

280 IF x>639 THEN x=0 >NG 

290 IF y>360 THEN y=0 >NA 

300 2=1 NT(14*RND) >MH 

310 PLÛT x,y,z:DRAU 636-x,y:DRAW 63 >PC 
6-x,357-y:DRAU x,357-y: DRAW x,y 
320 NEXT >EA 


330 INK 15,7,8:PEN 15:PAPER 1:PRINT >KW 
SPACESl20)+"CHERCHE LES MOITIES"-* 








SPACE$ 120) 


340 LÛCATE 9,25:PRINT CHRS(164)+" H >VZ 
C";: PAPER 0 :PEN 1 

350 FOR at=i TÛ 5Û00:NEXT at >VY • 

360 ENV 1,11,-1.3:ENT -1,5,-16.1,2, >RY 
39,1:ENV 2,15,1,2 

370 READ nol.dul,no2,du2:IF nol-1 T >HP 
HEN 80 

380 SOUND 1,no1,dul»!0 5 10,2 : SOUND 2 >VV 
,no2,du2*10,10,2 

390 ON SQ(2) GÛSUB 370 >PL 

400 DATA 142,3,179,3,134,1,159,1,11 >AB 

9,4,142,4,127,4,150,4,119,4,142,4,1 

06,4,134,4,119,4,142,4,142,8,179,8, 

179,3,284,3,284,1,159,1,239,4,142,4 

,253,4,150,4,239,4,142,4,213,4,134, 

4,239,4,142,4,284,8,179,8 

410 DATA 190,3,239,3,179,1,213,1,15 >CG 

9,4,190,4,239,4,190,4,119,4,190,4,0 


Moitié 


Henri CHAUVET 


Valable pour CPC 
664 et 61 28 


Ce programme aborde 
un domaine qui est à la base 
de nombreux exercices de 

calcul mental : X5, X50, X0y25 
et même 12 (!). L f entraînement 
est progressif. En cas d f erreur y 
Venfant est pris par la main et 
amené à trouver la bonne 
réponse. Il ne monte d f un 
niveau dans Vapprentissage 
que s f il s f en est montré apte. 

Il faudra du travail pour réussir 
au dernier échelon. A ce 
moment y Vélève est autorisé 
à disputer un championnat. 


,.1,0,.1,119,4,190,4,179,16,284,16, 

1,1,1,1 

420 RETURN >2B 
430 ’ >RH 
440 REM*********************** >VH 
450 REM*** initialisations *** >YE 
460 REM*********************** >VK 
470 ’ >TB 
480 DIM scûre(30),chaip$(30) >UD 
490 MODE 1 :ÜINDOW11, l, 40,1,3 : W lND0U >PR 
12,10,30,9,16:PAPERI2,3:PENI2,2 , 

500 RANDÛMIZE TIME >NU 
510 ’chiffres et point >RG 
520 desS=CHRSl8)+CHRS(lÜ): hauts =CHR >HH 


$( 11 ) 

530 SYMBOL AFTER 200 >PT 

54Ô SYMBOL 200,124,124,198,198,206, >MU 
206,214,214 

550 SYMBOL 201,230,230,198,198,124, >DT 
124 


560 cSlÛ)=CHRSt200)+des$+CHRS1201)+ >GQ 


hauts 


570 SYMBOL 202,24,24,56,56,24,24,24 >DK 
,24 

580 SYMBOL 203,24,24,24,24,126,126 >AM 


590 c$(1)=CHRS(202)+desS+CHRS(203)+ >GZ 
hauts 

600 SYMBOL 204,60,60,102,102,6,6,60 >DN 
,60 

610 SYMBOL 205,96,96,102,102,126,12 >CK 
6 

620 cS(2)=CHRS(204)+desS+CHRS(205)+ >GY 
hauts 

630 SYMBOL 206,60,60,102,102,6,6,28 >DC 
,28 

640 SYMBOL 207,6,6,102,102,60,60 >YQ 
650 cS(3)=CHR$(206)+desS+CHRS(207)+ >GG 
hauts 

660 SYMBOL 208,24,24,56,56,88,88,15 >FQ 
2,152 

670 SYMBOL 209,254,254,24,24,60,60 >AY 
680 cS(4)=CHRS(208)+desS+CHRS(209)+ >GQ 
hauts 

690 SYMBOL 210,126,126,98,98,96,96, >GN 

124.60 

700 SYMBOL 211,6,6,102,102,60,60 >YG 
710 cS(5)=CHRS(210)+desS+CHRS(211)+ >GV 
hauts 

720 SYMBOL 212,60,60,102,102,96,96, >HM 
124,124 

730 SYMBOL 213,102,102,102,102,60,6 >BN 
0 

740 cS(6)=CHRS(212)+desS+CHRS(213)+ >GD 
hauts 

750 SYMBOL 214,126,126,70,70,6,6,12 >DE 

,12 

760 SYMBOL 215,24,24,24,24,24,24 >YZ 
770 cS(7)=CHRS(214)+desS+CHRS(215)+ >GM 
hauts 

780 SYMBOL 216,60,60,102,102,102,10 >HV 

2.60.60 

790 SYMBOL 217,102,102,102,102,60,6 >BZ 
0 

800 cS(8)=CHRS(216)+des$+CHRS(217)+ >GL 
hauts 

810 SYMBOL 218,60,60,102,102,102,10 >HV 
2,62,62 

820 SYMBOL 219,6,6,102,102,60,60 >YU 
830 cS(9)=CHRS(218)+desS+CHRS(219)+ >GV 
hauts 

840 SYMBOL 220,0,0,0,24,24,24 >NJ 
850 cSl10)=CHRSl32)+desl+CHRS1220)+ >HX 
hauts:'point 

860 efS=CHRS(32)+desS+CHRS(32)+haut >EL 
Sî’efface 

870 'chatjuste >TF 

880 SYMBOL 221,0,0,0,0,0,227,255,25 >BX 
5 

890 SYMBOL 222,0,0,0,1,3,248,255,25 >BG 
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900 SYMBOL 223,0,15,127,255,255,31, >HK 
223,223 

910 SYMBOL 224,0,128,240,255,255,25 >JP 
5,255,31 

920 SYMBOL 225,0,0,0,0,192,224,224, >DN 
240 

930 SYMBOL 226,127,127,63,60,63,63, >EE 
15,1 

940 SYMBOL 227,255,255,255,230,255, >LR 

190.92.240 

950 SYMBOL 228,158,61,123,251,253,2 >LU 
52,247,247 

960 SYMBOL 229,127,255,255,255,255, >LZ 
255,31,207 

970 SYMBOL 230,255,255,255,255,249, >HC 

249.249.240 

980 SYMBOL 231,0,192,224,224,224,24 >KV 
0,240,240 

990 SYMBOL 232,30,63,63,31 >UE 

1000 SYMBOL 233,13,251,239,159,255, >DN 
252 

1010 SYMBOL 234,247,247,240,207,7 >ZH 
1020 SYMBOL 235,239,206,31,255,255, >FF 
1,7,3 

1030 SYMBOL 236,193,1,1,7,63,255,25 >FH 

5.240 

1040 SYMBOL 237,240,240,224,224,224 >ET 
,192 

1050 chatj$(l)=CHR$(221)+CHR$(222H >ÏM 
CHR$(223)*CHR$(224HCHR$(225):chatj 
$(2)=CHR$(226)+CHR$(227)+CHR4(228)+ 

CHR$(229)+CHR$(230)+CHR$(231):chatj 
$(3)=CHR$(232)+CHR4(233)+CHRI(234)+ 

CHRI(235)+CHRI(236)♦CHRI(237) 

1060 ’chatfaux >XK 

1070 SYMBOL 238,24,24,28,56,24,60,1 >GP 
89,126 

1080 SYMBOL 239,60,126,60,126,60,25 >JL 
5,126,60 

1090 SYMBOL 240,0,0,0,0,1,8,7,47 >YY 
1100 SYMBOL 241,255,60,126,60,36,25 >KD 
5,255,255 

1110 SYMBOL 242,0,0,0,0,128,16,224, >DD 
244 

1120 SYMBOL 243,0,95,47,55,119,55,5 >EP 
9,91 

1130 SYMBOL 244,126,129,255,126,153 >NX 
,255,231,195 

1140 SYMBOL 245,0,250,244,236,238,2 >LT 
36,220,218 

1150 SYMBOL 246,27,13,30,15,15,31,3 >EG 
1,62 

1160 SYMBOL 247,165,195,126,195,255 >HY 


,137,66 

1170 SYMBOL 248,216,176,120,240,240 >NU 
,248,248,124 

1180 SYMBOL 249,31,60,60,248,120,12 >KB 
0,248,172 

1190 SYMBOL 250,248,60,60,31,30,30, >FX 
31,53 

1200 chatft(l)=CHR4(32)*CHR4(238)+C >EB 
HR$(32):chatf$(2)=CHR$(32)iCHR$(239 
)+CHRI(32):chatf$(3)=CHR4(240)+CHR4 
(241)+CHRI(242):chatf$(4)=CHR$(243) 
+CHR$(244)+CHR$(245):chatf$(5)=CHR$ 

(246)+CHRI(247)+CHR1(248):chatf$(6) 
=CHR4(249)+CHRI(32)+CHR4(250) 


1220 •curseur >IH 

1230 curtr$=CHR$(22)+CHR4(1)+CHR4(9 >YY 
5)+CHRt(22)+CHRt(0) 

1240 » >XK 

1250 ON ERROR GOTO 5210 >QC 

1260 PR INT CHRK21) >NK 

1270 nbchaap=OiQPENIN"chaapaoi":WHl >JR 
LE NOT EOF:nbchaap=nbchaap+1:1NPÜTI 
9,chaapl(nbchaap),score(nbchaap):NE 
HD : CLOSE 1N : PR I NT CHRK6) 

1280 PRINT CHRK6) >HB 

1290 RETURN >FF 

1300 » >XG 

1310 REM*********************** >VP 
1320 REM*** chou du niveau *** >IK 
1330 REM*********************** >VR 
1340 » >YA 

1350 PAPER 0:CLS:1MC 3,17,16 >«J 

1360 PEN 1:LOCATE 5,2:PRINT"ll y a >CT 
6 niveaux de difficulté.*:LOCATE 2, 


4:PRlNT v Tu pourras choisir celui qu 
e tu désirés." 

1370 LOCATE 2,8:PRINT"Si tu réussis >JG 
parfaiteaent au niveau 7 ,";îPRINT" 
tu pourras disputer un chaapionnat. 

H 

1380 PEN 3îLOCATE 15,14:PRINT*ATTEN >ÜZ 
T ION":PLOT 220,174,3îDRAW 15Û,0:DR 
AUR 0,20:DRAHR -150,0:DRAtfR 0,-20 
1390 PEN 2:LOCATE 1,16:PRINT*üti1is >MX 
e les chiffres a droite du clavier 
et non ceux du haut." 

1400 LOCATE 6,19:PRlNT"Pour ecnre >ZU 
un noabre deciaal,":LOCATE 2,20:PRI 
NT"utilise le point et non pas la v 
irgule":LOCATE 7,21ïPRlNT"(coaae su 
r une calculette)." 

1410 GÛSUB 5130 >UH 


1420 CLSilNK 3,17 >LX 

1430 PEN 2:LOCATE l,i:PRINT"i -";:P >AF 
EN 1:PRINT" noabres d'un chiffre” 

1440 PEN 3:PR1NT" exeaples : 4,7 >LK 

, 8 ..." 

1450 PEN 2:PRINT:PRINT"2 -";:PEN 1: >YB 
PRINT" 0 au chiffre des unités" 

1460 PEN 3:PRINT* exeaples : 10, >PC 

60.70.. ." 

1470 PEN 2îPRINT:PR 1NT"3 -”;:PEN li >NP 
PRINT" dizaines paires, unités pair 
es" 

1480 PEN 3:PRINT* exeaples : 24, >PÜ 

38.46.. ." 

1490 PEN 2:PRINT:PRINT"4 -";:PEN li >UN 
PRINT" dizaines paires, unités iapa 
ires"" 

1500 PEN 3iPRINT" exeaples : 23, >PT 

49.87.. ." 

1510 PEN 2:PRINT:PRINT"5 :PEN 1: >RE 
PRINT" dizaines iapaires, unîtes pa 
ires" 

1520 PEN 3:PRINT" exeaples : 36, >PT 

54.76.. ." 

1530 PEN 2:PR1NT:PRfNT"6 -";:PEN 1: >WX 
PRINT” dizaines iapaires, unités ia 
paires" 

1540 PEN 3:PRINT* exeaples : 37, >PU 

55.93.. ." 

1550 PEN 2:PR1 HT :PR1NT"7 -";:PEN li >JD 
PRINT" noabres quelconques de 1 a 9 

9" 

1560 PEN 3:PRINT" exeaples ; 3,2 >RB 
0,45,78..." 

1570 PEN 1:LOCATE i,25:PRlNT"Quet n >LD 
iveau choisis-tu ? ";:PEN 2iPRINT c 
urtrl 

1580 p=0 >NG 

1590 CLEAR INPÜT >LU 

1600 nt=INKEYtip=p*l:lF n$=" f AND p >IL 
MOD 20<4 THEN LOCATE 26,25iPRINT" 
"iGOTO 1600:ELSE 1F si* 11 THEN LOCA 
TE 26,25:PRINT curtrliGOTO 1600 
1610 IF n$="" THEN LOCATE 26,25:PRI >YL 
NT curtrl;iGOTO 1600 
1620 IF n$="" OR INSTR("1234567",n$ >MK 
)=0 THEN PRINT CHRK7);iGOTO 1600 
1630 n=VAL(ni):LOCATE 25,25:PRINT n >FZ 


jiFOR at=l TO 1000:NEXT at 
1640 CLS >AA 

1650 RETURN >FF 

1660 f >YF 

1670 REM********************* >UA 

1680 REM*** entree du noa *** >VH 
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1690 REHi*«ft««**»*»ftt******** >UC 
1700 ' >YA 

1710 PEH 1:LOCATE 1,12:PRlNT*Ecris >HF 
ton prenoi et ton noi:":PEN 2:LOCAT 
E 1,14:CLEAR INPUT:lNPUT"",na$:IF n 
B$="" THEN 1710 

1720 na4=LÛWER$(na$) >PQ 

1730 FOR 1=1 TO LEN(nal) >RK 

1740 IF i=l OR aaj=i THEN aaj=0:MlD >PU 
l(na$,l,i)=UPPER$(MlDt(na$,i,1)) 

1750 IF MID4(na$,i,l)="-" OR MIDKn >YJ 
a$,i,l)=" " THEN aaj=l 
1760 IF iOl THEN IF (HID$(na$,i,l) >ÜR 
=■ • AND MlDKnal,i-l,l)=" ") THEN 
MlDKnal, i,l)=CHR$(8) 


1770 noB$=noa$+HlD$(na$,i,l) >UU 

1780 NEIT >LH 

1790 FOR 1=1 TO LEN(noal) >TU 

1800 IF MlDKnoal, i, i)=" B THEN i=L >GY 
ENlnoal) ELSE prenoaKprenoal+HIDK 
noa$,i,l) 

1810 NEH >LB 

1820 PEN 1:LOCATE 1,17:PRJNT"Bon co >ZA 
urage, 1 ;prenoa*PRINT:PRINT" 
et ne LE reveille pas !" 

1830 FOR at=l TO 2500:NEIT at >UZ 
1840 RETURN >FG 

1850 1 >YG 

1860 REM»»***»»******»**** >RQ 

1870 REM*** recitation *** >UH 

1880 REM****************** >RT 

1890 * >ZA 

1900 CLS:INK 0,13:BÛRDER 7:INK 1,25 >BQ 
:INK 2,20:INK 3,15:PEN 1 
1910 e=0:r=0:j=0:sc=0 >QQ 

1920 IF n=l OR n=2 THEN nq=9 ELSE n >EP 
q=10 

1930 FOR 1=1 TO nq >LA 

1940 f1=0 >EB 

1950 ON n GÛSUB 4400,4430,4460,4510 >UD 
,4560,4610,4660,4660 
1960 IF 1=1 THEN 2000 >NX 

1970 FOR ci=l TO 1-1 >HT 

1980 IF x(cl)=i(l) THEN 1950 >VC 

1990 NEn ci >ED 

2000 xt=STRKx(i)):dx$=" , :FOR k=2 T >GD 
0 LENfxl) :dxl=dxKc$(VAL(MlD$(x$,le, 

1))):NEXT 

2010 CLSI2 >KG 


2020 IF i=nq THEN quesl="question" >LA 
ELSE ques$="questions" 

2030 LÛCATEil,9,2:PRlNTIl,CHRK24); >HD 
"Il te reste";nq-i*t;ques$;CHR$(24) 
;CHR$(18) 

2040 IF n=8 THEN LOCATE 14,5:PR INT >BE 


CHRK24) ;" CHAMPIONNAT B ;CHRK24) E 
LSE LOCATE 16,5iPRINT CHRK24);" NI 
VEAU";n;CHR$(24) 

2050 FOR chat=l TO 3:L0CATE 18,21+c >KD 
hatîPRINT chatjl(chat):NEIT 
2060 LOCATE #2,2,3:PRINTt2,"aoitie >RG 
de":LOCATE12,13,2:PRINTI2,dx$ 

2070 L0CATEt2,8,6:PRINTI2,"—> ":x >KC 

=13:y=6idh=l:G0SUB 4730:dh=0 

2080 IF rep$="troplent" THEN er=er+ >FZ 

l:x(er)=x(i): GOTO 2100 

2090 IF VAL(rep*)=x(i)/2 THEN GOSUB >YV 


2130 ELSE GOSUB 2160 
2100 NEXT 1 >UJ 

2110 RETURN >EH 

2120 'réponse juste >XH 

2130 j=j+l:LOCATE 18,19:PRINT"BRAV0 >VF 
!":FOR at=l TO 1000:NEXT at:LOCATE 
18,19:PRINT" " 

2140 RETURN >FA 

2150 'réponse fausse >YA 


2160 LOCATE 17,18:PRINT"ERREUR...": >PP 
FOR chat=l TO 3:L0CATE 18,21+chat:P 
RINT ■ "îNEXTîFOR chat=l TO 6: 
LOCATE 19,19+chat:PRlNT chatfKchat 
)îNEXT:FOR ch=t5 TO 1 STEP-1:SOUND 
1,3000,10,ch,,,31:NEn ch:FOR it=l 
TO 1000:NEXT at 

2170 CLS:INK Û,10:B0RDER 10:INK 1,1 >UY 
7:INK 2,18:INK 3,16 

2180 er=er+l:x(er)=x(i) >TL 

2190 ON n GOSUB 2740,2900,2230,3240 >UY 

,2230,3240,3430,3430 

2200 GOSUB 5130:BORDER 7:INK 1,25:1 >ZK 

NK 2,20:INK 3,15:PEN 1 

2210 RETURN >EJ 

2220 ' ' >IJ 

2230 LOCATE 10,1:PRINT CHRK24);"» >RY 

> MOITIE DE ";x(i); , <«"îCHR4(24):P 

EN 1:PRINT:PRINT:PRIMT"Ref1echis bi 

en :* 

2240 d=10*lNT(x(i)/10):u=x(i)-d >ZX 
2250 PRINT:PRINT"Tu sais que ";x(l >XQ 
);"=";d;"4";u 

2260 f=0:PEN 3:PRlNT:PRINT:PRINT"Do >TU 
nne la aoitie de";d;"—> " 

2270 PEN 2:x=28-Id=10):y=9:G0SUB 47 >EQ 
30 

2280 ad=VAL(r$) >DB 

2290 IF adOd/2 THEN 2300 ELSE 2380 >AF 
2300 f=fU:IF f<2 THEN PEN 1:L0CATE >MP 
1,y+1:PRINT"Faux, recoapte.■;CHRI( 

18):FÛR at=l TO 1500:NEH at:LOCATE 


28, y: PR INT CHRK18) :PRINT CHR$(18) 
:G0T0 2270 

2310 PEN 1:LOCATE l,y*l:PRINT"Non, >BB 
c’est";d/2;CHR$(18) 

2320 FOR at=i TO 1000:NEn >UF 

2330 FOR rep=l TO 5 >MJ 

2340 IF rep MOD 2=0 THEN PEN 0 ELSE >ED 
PEN 2 

2350 LOCATE 27,y:PRINT d/2;" ":FÛ >UB 
R at=l TO 200:NEXT 

2360 NEXT >LC 

2370 GOTO 2390 >ND 

2380 PEN 1:LOCATE l,y+l:PRINT"BIEN >PK 
!";CHR$(18) 

2390 f=0:PEN 3:L0CATE 1,12:PRINT"Do >RE 

nne la aoitie de";u; # -> * 

2400 PEN 2:x=29:y=12:G0SUB 4730 >YH 
2410 au=VAL(r$) >ED 

2420 IF auOu/2 THEN 2430 ELSE 2510 >AL 
2430 f=f+l:IF f<2 THEN PEN 1:L0CATE >MP 
1,y+1:PR INT"Faux, recoapte.";CHR$( 

18):FOR at=l TO 1500:NEH at:LOCATE 

29, y:PRINT CHRK18) :PRINT CHRK18) 
:GOTO 2400 

2440 PEN 1:LOCATE l,y*l:PRINT"Non, >CQ 
c’est*;u/2;CHR$(18) 

2450 FOR at=l TO 1000:NEH >UK 

2460 FOR rep=l TO 5 >MN 

2470 IF rep MOD 2=0 THEN PEN 0 ELSE >EH 
PEN 2 

2480 LOCATE 28,y:PRINT u/2;" ":F0 >«A 

R at=l TO 200:NEXT 

2490 NEH ‘ >LG 

2500 GOTO 2520 >MD 

2510 PEN 1:LOCATE l,y+l:PRINT"BIEN >PE 
!";CHR$(18) 

2520 FOR at=l TO 1500:NEn:CLS:LOCA >EM 
TE 10, i:PRINT CHR$(24);"»> MOITIE 
DE";x(i);"<«";CHR$(24) 

2530 PEN l:PRINT:PRlNT"La aoitie de >JG 
■;x(i);"est égalé a" 

2540 IF d/2=5 THEN esp$=" • ELSE >HN 
esp$=" " 

2550 PRINT:PRINT"la aoitie de";d;"- >YL 

->*;esp$;:PEN 2:PRINT d/2 

2560 PEN l:PRINT"plus la aoitie de" >NN 
»u; 

2570 IF u<10 THEN PRINT"-"; >UF 

2580 PRINT"-—>";:PEN 2:PRINT" ♦ " >GJ 
;u/2 

2590 LOCATE 28,8:PRINT"-";: IF x( >EA 

i) MOD 200 THEN PRINT"--" 

2600 f=Û:PEN 3:LÛCATE i,9:PRINT"Cel >LX 

a fait coabien ? - >" 

2610 PEN 2:x=30-(d=10):y=9:GOSUB 47 >EF 





30 

2620 r=VAL(r$): IF r<>x(i)/2 THEN 26 >HQ 
30 ELSE 2710 

2630 f=f+l:IF f<2 THEN PEN IîPRINT* >TC 
Faux, recoapte.":F0R at=l TO 1500:N 
EH at:LOCATE 30,y:PRINT CHR$(18):P 
RINT CHR$(18):GOTO 2610 


2640 

PEN 1:LOCATE l,yU:PRINT"Non, 

>FV 

c’est 

:";x(i)/2;CHR$(18) 


2650 

FOR at=l TO 1000:NEIT 

>UH 

2660 

FOR rep=l TO 5 

>HQ 

2670 

IF rep HOD 2=0 THEN PEN 0 ELSE 

>EK 

PEN 

2 


2680 

LOCATE 29-(d=10),y:PRINT x(i)/ 

>HG 

2;" 

":FOR at=i TO 200:NEXT 


2690 

NEIT 

>U 

2700 

GOTO 2720 

>MH 

2710 

PEN 1:LOCATE l,y+l:PRINT"BIEN 

>FA 

2720 

IF f1=1 THEN RETURN 

>TV 

2730 

t 

>YE 

2740 

FOR at=i TO 1000:NEIT:CLS 

>YK 

2750 

PEN 1:LOCATE U,10:PRINT*Retie 

>AV 


ns bien ceci 


2760 PEN 2:L0CATE 1,8:PRINT STRING! >RD 
(40,12/):LOCATE 1,16:PRINT STRINGK 
40,127):FOR af=9 TO 15:LOCATE l,a 1: 
PRINT CHRK127): LOCATE 40,af:PRlNT 
CHR$(127):NEIT:FOR at=l TO 1500:NEX 


T 

2770 PEN 3:LOCATE 9,14:F0R af=l TO >MJ 
13:PRINT HID$("Ia aoitie de",af,1); 

: IF MIDKMa aoitie de",af,l)<>" ■ 

THEN SOUND 1,40,10,5 
2780 FOR at=l TO 120:NEXT >TX 

2790 NEIT >LK 

2800 PEN 2:FOR af=l TO LEN(STR$(x(i >TL 
))):PRINT HID$(STR$(i(i)),af,l);:IF 
HlDI(STR$(x(i)),af,l)<>" ff THEN SO 
UND 1,40,15,5 

2810 FOR at=l TO 200:NEIT >TP 

2820 NEIT >LD 

2830 PEN 3:FOR af=l TO 5:PRINT M1D$ >EJ 
(" est",af,1);:IF MIDK" est",af,i) 

O" " THEN SOUND 1,40,10,5 
2840 FOR at=l TO 120:NEXT >TU 

2850 NEIT >LG 

2860 PEN 2:FOR af=l TO LEN(STR$(ï(i >DN 
)/2)):PRINT HlD!(STR!(x(i)/2),af,1) 


IF HlD!(STR!(x(i)/2),af ,1)0" • T 
HEN SOUND 1,40,15,5 

2870 FOR at=i TO 200:NEIT:NEn >TP 
2880 RETURN >GB 
2890 9 >ZB 


2900 IF x(i)=10 AND VAL(x$)011 THE >FJ 
N 3220 

2910 CLS:LOCATE 10,1:PR!NT CHRK24) >HF 
;■»> MOITIE DE*;x(l) ;"«<";CHR$(24 
) 

2920 IF VAL(x$)=ll THEN f=0:L0CATE >TJ 
l,13:PRINT"Tu dois trouver la aoiti 
e de 10.":PRINT:GOTO 3090 
2930 PEN 3:LOCATE ll,4:PRINT*Coue >BT 
tu le sais,":LOCATE 13,5:PRINT x(i) 
;"=";x(i)/10;"« 10" 

2940 LOCATE 18,7:PRINT"donc":PEN 1: >DJ 
LOCATE 4,8:PRlNT"(ioitie de";x(i);C 
HR$(8);■ ) = (■oit. de";x(i)/10,*CHR$ 
(8);") i 10" 

2950 f=0:PEN 3:PRINT:PRINT:PRINT"Do >AN 
nne la aoitie de";x(i)/10;"—> ■ 

2960 PEN 2:x=28:y=ll:G0SUB 4730 >ZJ 
2970 ad=VAL(r$) >DH 

2980 IF ad<>x(i)/20 THEN 2990 ELSE >DL 
3070 

2990 f=f+l: IF f<2 THEN PEN 1:L0CATE >HM 
l,y+l:PRINT”Faux, recoapte.* ;CHR$( 

18): FOR at=l TO 1500:NEXT at:LOCATE 
28, y: PR INT CHR*(18):PR1NT CHRK18) 
:GOTO 2960 

3000 PEN 1:LOCATE l,y*l:PRlNT"Non, >GR 
c'est";x(i)/20;CHR$(18) 

3010 FOR at=l TO 1000:NEIT >UC 

3020 FOR rep=l TO 5 >HF 

3030 IF rep HOD 2=0 THEN PEN 0 ELSE >EA 
PEN 2 

3040 LOCATE 27,y:PRINT x(i)/20;" >AH 

":FOR at=l TO 200:NEIT 

3050 NEIT >KK 

3060 GOTO 3080 >HH 

3070 PEN 1:LOCATE l,yil:PRINT"BIEN >PG 

!";CHR$(18) 

3080 f=0:LOCATE l,14:PRINT"Haintena >GX 
nt, il faut calculer";x(l)/20;"« 10 

ti 

3090 PEN 3:PRINT"Cela fait coabien >LL 

?» 

• 

3100 PEN 2:i=21:y=l5:G0SUB 4730 >TA 
3110 r=VAL(r»):IF r<>x(i)/2 THEN 31 >NZ 
20 ELSE 3200 

3120 f=f+l:IF f<2 THEN PEN IîPRINT" >RZ 

Faui, recoapte.*:FOR at-1 TO 1500:N 

En at:LOCATE 20,y:PRINT CHR*(18):P 

RINT CHR*(18):G0T0 3100 

3130 PEN 1:LOCATE l,y+l:PRINT"Non, >FP 

c'est";x(i)/2;CHR4(18) 

3140 FOR at=l TO 1000:NEIT >UG 


3150 FOR rep=l TO 5 >HK 
3160 IF rep HOD 2=0 THEN PEN 0 ELSE >EE 
PEN 2 

3170 LOCATE 20,y:PRINT i(i)/2;" " >ZC 


:FOR at=l TO 200:NEÏT 
3180 NEIT >LD 

3190 GOTO 3220 >HH 

3200 PEN 1:LOCATE l,y4l:PRINT*BIEN >FV 

i*. 

• » 

3210 IF f1=1 THEN RETURN >TP 

3220 GOSUB 2740:RETURN >RU 

3230 ’ >YA 


3240 LOCATE 10,IîPRINT CHR»(24);*>> >D0 
> MOITIE DE»;«(i);*«<";CHR*(24):f 1 
=1:PEN 3:LOCATE U,6:PRINT*Coaae tu 
le sais,":PEN 1:LOCATE 13,8:PRINT 
i(l);"=*;*(i)-l;*+ 1*:PEN 3 
3250 LOCATE 13,10:PR1NT*I1 faut do >HN 
nc*:LOCATE 6,12:PRINT*que tu trouve 
s la aoitie de'pPQI IîPRINT i(i)-l 
:PEN 3:LOCATE 19,13:PRINT*et*:L0CAT 
E 6,14:PRINT*que tu ajoutes la aoit 
le de *;:PEN 1 :PRINT"1":GOSUB 5130 
3260 «U)=*(1)-1:1F i(i) HOD 10=0 T >NP 
HEN GOSUB 2900:ELSE CLS:LOCATE 10,1 
: PRINT CHR»(24);*»> MOITIE DE";i(i 
);*«<*;CHR4(24) : PR I NT : PR I NT : PR I NT : 
GOSUB 2240 

3270 FOR at=l TO 1000:NEn at:CLS:L >RA 
OCATE 10,IîPRINT CHR*(24);"»> HOIT 
IE DE";i(i)tlj"«<";CHR»(24):PEN 1: 

PH 1 NT:PRINT:PR1NT"La aoitie de';i(i 
)i*=*;xli)/2iCHR»(8);*, donc* 

3280 PRINT:PRINT'la aoitie de*;i(i) >LL 
♦l;*=*jx(l)/2;*t 0.5*:LOCATE 23,7:P 
RINT"(la aoitie de D" 

3290 PEN 3:LOCATE 1,10:PRINT*Calcul >TB 
e ";*(i)/2;*+ 0.5 —>*:PEN 2:«=25 
:y=10:GOSUB 4730 

3300 i(i)=*(i)*l:r=VAL(r*):IF r=i(i >QN 
)/2 THEN 3380 

3310 PRINT"Non, c* est"; a <i)/2;CHR*( >JZ 
18) 

3320 FOR at=l TO 1000 :NEn at >UN 
3330 FOR rep=l TO 5 >IK 

3340 IF rep HOD 2=0 THEN PEN 0 ELSE >EE 
PEN 2 

3350 LOCATE 24,y:PRINT i(l)/2:F0R a >UH 
t=l TO 200:NEIT at 

3360 NEIT rep >QA 

3370 GOTO 3390 >NF 

3380 PEN 1:LOCATE 1,y+1:PRINT*BIEN >PL 
!"jCHR4(18) 

3390 FOR at=l TO 1500:NEIT at:CLS >AH 




3400 GOSÜB 2740 >IC 
3410 RETURN >FB 
3420 1 >YB 
3430 1F 1(1X10 THEN GOSÜB 2740:RET >FR 
URN 

3440 d=10*lNT(x(i)/10):u=x(i)-d >ZA 
3450 IF u=0 THEN GOSÜB 2900:RETURN >BH 
3460 1F u HÛD 2=0 THEN GOSÜB 2230:R >GH 
ETURN 

3470 GOSÜB 3240:RETURN >RX 
3480 ’ >YH 
3490 REM********************** >VX 
3500 REM*** lin d’exercice *** >ED 
3510 REM********************** >VP 
3520 1 >YC 
3530 CLS:INK 0,0:IKK 1,26:INK 2,14: >JN 
INK 3,18 

3540 1F n<8 THEN 3690 >NX 
3550 IF j=10 THEN 3580 >PA 
3560 FEN l: LÛCATE 3,4:PRlNT"Tu n’a >PU 


s pas réussi aux 10 questions. n :PEN 
2:PRINT:PRlNT"Ce n’est pas si faci 
le qu’on le croit...":PRINT"Mais c’ 
est déjà très bien d’avoir accédé”: 

PR1NT" au chaipionnat." 

3570 PEN 3:PRI NT :PR1NT :PR INT* U >PK 

ne autre fois certainement...*:GÛTO 
3670 

3580 LOCATE 10,5:PRlNT"Ton score es >ER 
t de";sc:trouve=0 

3590 FOR i=l TO nbchaip >RB 

3600 IF UPPER!(nom!)=champ!(i) THEN >BÜ 
trouve=i:i=nbchaap 

3610 NEXT 1 >VF 

3620 IF trouve=0 THEN PEN 2:LOCATE >FR 
8-LEN(prenom!)/2,6:PRlNT"Bravo, ";p 
renom!;", tu as réussi !":LOCATE 1, 
9:PRINT"Je t’inscris dans la liste 
des champions":nbchamp=nbchamp+l:ch 
amp!(nbchaap)=nom!: score(nbchaap)=s 
c:GOTO 3660 

3630 1F score(trouve)=sc THEN PEN 2 >YC 
: LOCATE 10, ô:PRINT**Tu as égalé ton 
record.”:LOCATE 13,11:PR1NT"FELICIT 
ATIONS ! !!":GQTO 3670 
3640 IF score(trouve)>sc THEN PEN 2 >VC 
îLOCATE 8,9:PRINT”Ton record n’est 
pas battu.":LOCATE 17,U:PRINT”Dou 
âge !":LOCATE 7,13:PRINT*C’est tout 
de aeae très bien":LÛCATE 7,14:PRI 
NT"d*etre arrive a ce niveau...":G0 
TO 3670 

3650 IF score(trouve)<sc THEN PEN 2 >JG 
:LOCATE 9,9:PRINT”Tu as battu ton r 
ecord.":LOCATE 14,il:PRINT"FELIC1TA 


TIONS ! !!":L0CATE 7,13:PRINT”Je l’i 
nscris tout de suite.”:score(trouve 
)=sc 

3660 OPENOUT* chaapaoi”:FOR i=l TO n >YT 
bchaap:URITEI9,champ!(i),score(i):N 
EXT i:CL0SE0ÜT 

3670 GOSÜB 5130 >IH 

3680 GOTO 3750 >NK 

3690 PEN 1:LOCATE 12,10:PRINT”Sur"; >AE 
nq;"questions," 

3700 LOCATE 5,12:PRlNT"Tu as donne" >PD 
;j;"reponses exactes." 

3710 PEN 2:1F j=nq THEN LOCATE 1,17 >ZU 
:PRINT"Bravo ! Tu ne pouvais pas fa 
ire aieuL... 

3720 ’ >YE 

3730 ’ fin de partie >YF 

3740 ’ >YG 

3750 PEN 3:LOCATE 5,20:PRINT"Veux-t >JT 
u recoaaencer (0/N) ?";:PEN 2:PRINT 

n • 

3760 suit!=INKEY!:IF suit!="" THEN >GV 
3760 

3770 IF INSTR("ONon",suit!)=0 THEN >TQ 
LOCATE 1,1:PR1NT CHR!(7):G0T0 3760 
3780 IF UPPER!(suit!)="0" THEN suit >EE 
!="OUl" ELSE suit$="NON" 

3790 LOCATE 33,20:PR INT suit! >YF 
3800 FOR at=l TO 1500:NEXT atiCLS >AH 
3810 IF suit!="OUI" THEN 4100 >NF 

3820 IF er=0 THEN LOCATE 1,5:PRINT" >VK 
Coaae tu veux...":FOR at=l TO 1500: 

NEXT at:GOTO 4050 

3830 LOCATE l,5:PRINT”Coeae tu veux >AK 
, ";prenom!;"." 

3840 IF er=l THEN er!="ton erreur." >MJ 
ELSE er!="tes erreurs." 

3850 PEN 1:LOCATE 5,7:PR!NT"Mais av >NY 
ant que tu ne t’en ailles," 

3860 PRIMT"je voudrais te faire rev >ZC 
oir ";er! 

3870 GOSÜB 5i30 >IK 

3880 FOR e=i TO er >LU 

3890 CLS >AK 

3900 PEN 1:LOCATE l,6:PRINT"Quelle >TU 

est la moitié de";x(e);"? " 

3910 PEN 3:LÛCATE 30,6:L1NE INPUT " >QR 
*,mx!:mx=VAL(mx!):IF ax=0 THEN PRIN 
T CHR!(7):LOCATE 30,6:PR1NT CHRK18 
): GOTO 3910 

3920 IF ax<>x(e)/2 THEN 3930 ELSE 4 >CH 
030 

3930 INK 2,15,18:SPEED INK 10,10:PE >WL 
N 2.‘LOCATE 18,12:PRINT"FAüX":PEN 1: 


PRINT:PRINT" Je sens que je va 

1s éclater.":PRINT:PRINT" 


SAUVE-TOI ! !!":FÛR at=l TO 1000 
:NEIT at 

3940 FOR son=800 TO 100 STEP : 5:S0üN >AU 
D 1,son,2,15:NEXT son 
3950 SPEED INK 3,3:B0RDER 7,11:ENV >TA 
1,15,-1,15:SOUND 1,0,400,15,1,0,30: 

OUT 255,8 :OUT 256,1 

3960 FOR inn=l TO 6:FÛR in=l TO 26: >YY 
INK 0,in:BORDER in:FÛR at=l TO 3:NE 
IT at:NEXT in:NEH inn 
3970 OUT 256,0:BORDER 0:INK 0,0:INK >FQ 
2,14 

3980 CLS:PEN 1:LÛCATE 2,5:PRlNT"J’e >RF 
spere que tu n’as pas eu trop peur. 

":PR!NT:PRINT:PR 1NT" En tout cas, 
tu dois retenir que" 

3990 SPEED INK 5,100:INK 2,25,7:INK >H2 
3,7,25 

4000 PEN 2: LÛCATE 8,16: Pi INT "LA MO >RU 
ITIE DE";:PEN 3:PRINT x(e);:PEN 2:P 
R1NT "C’EST";:PEN 3:PRINT x(e)/2 
4010 FOR at=l TO 50:NEXT >RQ 

4020 GOSÜB 5130:INK 2,14:INK 3,18:B >VA 
ORDER 7:GOTO 4040 

4030 PEN 2:PRlNT:PRINT"Bien":FQR at >ZC 


=1 TO 1500:NEXT at 


4040 NEXT e >UK 
4050 MODE 0:SPEED INK 25,25:INK 2,2 >EP 
5,7:INK 3,7,25:PEN 2:L0CATE 6,10:PR 


INT"Au revoir":PEN 3:L0CATE (21-LEN 
( prénom!))/2,16:PRINT prénom! 


4060 FOR at=l TO 10000:NEXT at 
4070 MODE i:PAPER 0:PEN 1:BORDER 1: 
CALL &BC02 
4080 END 
4090 ’ 


4100 PEN 2:er=0 

4110 IF n<8 THEN 4140 

4120 IF j>7 THEN LÛCATE 15-LEN(pren 


>IQ 

m 

>ZA 

>YF 

>IJ 

>NF 

>RC 


oml)/2,5 : PR INT"D’accord, ”; prénom!; 
",":PRINT:PRINT" tu peux reprend 
re le championnat.":GOSÜB 5130:RETü 


RN 

4130 GOTO 4200 >HB 

4140 IF j=nq THEN 4230 >PF 

4150 IF n=l OR Cj=nq-l AND n<4) OR >GN 

(j>8 AND n>3) THEN 4170 ELSE 4200 
4160 ’ >YD 

4170 LOCATE l,5:PRINT"D’accord, ";p >HM 

renom!;",":PRlNT:PRINT"mais tu rest 
es au niveau";n 

4180 GOSÜB 5130:RETURN >RW 

4190 ’ >YG 
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4200 n=n-1:LOCÂTE l,5:PRINT"D’accor >ME 
d, ";prenoil;", * :PRINT:PRINT"Mais c 
ette fois tu joues au niveau*;n 
4210 GOSUB 5130:RETURN >RP 

4220 1 >YA 

4230 n=n*l:IF n=8 THEN 4250 >ÜH 

4240 LOCATE 1,5: PR WD' accord, *;p >NZ 
renoa$;".":PRINT:PRlNT"Mais cette f 
ois, tu Bontés au niveau*;n:G0SUB 5 
130:RETURN 

4250 PEN 1:LOCATE U,l:PRiNT*Tu vie >DÜ 
ns de réaliser":LOCATE 7,2:PRlNT*le 
■eilleur score possible.*:PRINT:PR 
INT* Tu peux donc participer au cha 
■pionnat." 

4260 PEN 2:LOCATE 12,8:PRINT*i1 s’a >WT 
git toujours*:PRINT* de trouver 
la Boitie deaandee,”:LOCATE 17,10: 
PRINT*Bais..." 

4270 PEN 3:LOCATE 15,14:PRINT"ATTEN >YH 
T10N!":L0CATE 9,16:PRINT*TU N*AS QU 
E 10 SECONDES*:PR INT:PRINT" POUR TR 
OUVER LA REPONSE ET L’INSCRIRE." 

4280 GOSUB 5130 >XF 

4290 PEN 1:LOCATE 1,5:PRINT * Si t >KA 
u peux repondre aux 10 questions*:P 
RINT" j'inscrirai ton noB dans aa 
Beaoire":PRlNT” et tu pourras, 
un autre jour,*:PRINT" essayer 
de battre ton record." 

4300 1F nbchaap=0 THEN 4330 ELSE 43 >CA 
10 

4310 PRINT:PR INT:PR f NT:PRINT" Pour >TZ 
voir les chaapions déjà inscrits,": 

PRINT" appuie sur <ESPACE>. 

”:CLEAR 1NPUT:CALL &BB06 
4320 z=(25-nbchaap)/2:CLS:PL0T 0,39 >AG 
8-16*(z-l),2:DRAUR 638,0:DRAUR 0,-1 
6*(nbchaap+2):DRAWR -638,0: DRAWR 0, 
16*(nbchaip+2): FOR i=l Tû nbchaap:L 
ÛCATE 2, z+ i : PR I NT chaapl(i) : LOCATE 
33,z+i: PR I NT USING *l«ft»ll" ;score(i 


):NEXT 

4330 GOSUB 5130:RETURN >RT 
4340 1 >YD 
4350 REM************************** >YQ 
4360 REM*»» tirage des noabres »»* >AW 
4370 REM*****«***xx***»***«****»»* >YT 
4380 » >YH 
4390 REM—niveau 1 >NX 
4400 x(i) = lNT(RND*9Xl >QU 
4410 RETURN >FC 
4420 REM—niveau 2 >NR 
4430 x(i)=(INT(RND*9Xl)*10 >VM 
4440 RETURN >FF 


4450 REM—niveau 3 >N« 

4460 d(i) = (INT(RND»4Ml)*20 >VP 

4470 u(i)=(INT(RND*4Hl)*2 >UL 

4480 x(i)=d(iXu(i) >NA 

4490 RETURN >GA 

4500 REM—-niveau 4 >NT 

4510 d(i)=(lNT(RND»4Ml)*20 >VK 

4520 u(i) = (UNT(RND»4)U)»2)-l >IV 

4530 x(i)=d(iXu(i) . >ME 

4540 RÉTURN >FG 

4550 REH—niveau 5 >NZ 

4560 d(i)=(tINT(RHD»4)+1)*20)-10 >YV 

4570 u(i)=(INT(RND*4)*l)*2 >UM 

4560 x(i)=d(i)*u(i) >NB 

4590 RETURN >GB 

4600 REH—niveau 6 >N« 

4610 d(i)=((INT(RND*4)*i)«20)-10 >TQ 

4620 u(i)=((INT(RNDt4M)»2)-l >IU 
4630 »(i)=d(i)*u(i) >HF 

4640 RETURN >FH 

4650 REH—niveau 7 >NC 

4660 x(i)=INT(RND*99)*l >RF 

4670 RETURN >GA 

4660 ’ >ZA 

4690 >TG 

4700 REH»** saisie des réponses »** >CH 
4710 REH*************************** >T2 
4720 ' >YF 

4730 t=TIHE >tF 

4740 r»*”:M=":rep»=" >RB 

4750 IF dh=l THEN L0CATE»2,x,y+l:PR >FN 
INTI2,curtr»:ELSE LOCATE i,y:PRINT 
curtrl 

4760 CLEAR 1NPUT >LW 

4770 WHILE k$OCHR$(13) OR r$="* >YE 
4780 k$=INKEY$ >YD 

4790 IF n=8 THEN GOSUB 5020 >UD 

4800 1F rep$="troplent" THEN 4980 >D« 

4810 IF k$=*" THEN 4780 >PK 

4820 ask=ASC(k$): IF ask=46 THEN ask >FV 
=58 

4830 IF dh=0 THEN 4890 >PB 


4840 IF k$=CHR$(127) AND rl<>*" THE >YZ 
N L0CATEI2,x+(LEN(r$)/5)-l,y:PRINTt 
2,ef$;ef$:rl=LEFT$(r$,LEN(r$)-5):re 
p$=LEFT$(rep$,LEN(rep$)-l) 

4850 1F ask>47 AND ask<59 AND LEN(r >ZL 
$><21 THEN r$=r$+c$(ask-48):rep$=re 
pl+k$ 

4860 L0CATEI2,x,y:PRlNTI2«r$;: 1F LE >AJ 
N(r$X2i THEN PRINTI2,CHR$(10);curt 

r$; 

4870 GOTO 4920 >PB 

4880 1 >ZC 


4890 IF k$=CHRI(127) AND r$<>"" THE >VK 
N LOCATE x*LEN(r$)-l,y:PRINT CHRX3 
2);CHR$(32>:r$=LEFT$(r$,LEN(r$)-i> 

4900 IF ask>47 AND ask<59 AND LEN(r >UV 
$)<5 THEN rl=r*+k$ 

4910 LOCATE x,y:PRINT r$;curtr$; >BQ 
4920 UEND >JK 

4930 IF r$Oc$(10) AND rl<>".* THEN >DD 
4960 

4940 IF dh=i THEN L0CATEI2,xXLEN(r >GF 
$)/5)-l,y:PRINTi2,ef$;ef$ ELSE LOCA 
TE x+LEN(r$)-l,y:PRINT CHR$(32);CHR 
$(32) 

4950 GOTO 4730 >NK 

4960 IF dh=l AND LEN(r$)<21 THEN PR >FA 
1NTI2,CHR$(8) ;ef$ ELSE PR INT CHRK8 
);CHR$(32) 

4970 IF n=8 THEN sc=scX4000-tt)ç4 >BY 
4980 RETURN >GE 

4990 1 >ZE 

5000 ' INPUTUAIT pour chanpionnat >XH 
5010 » >U 

5020 tt=TlME-t:IF tt>2500 THEN LOCA >YF 
TE 12,19:PRINT"Le teaps passe...” 

5030 IF tt>4000 THEN 5040 ELSE 5060 >ZE 
5040 FOR ef=i TO 6:L0CATE l,18*ef:P >VB 

RINT CHR$( 18):NEH:LOCATE 16,10:PRI 
NT"trop tard*:LOCATE 9,2i:PRINT"il 
fallait repondre*;x(i)/2:rep$=*trop 
lent* 

5050 GOSIÆ 5130 >IB 

5060 LOCATE 1,19:PRINT CHR$(18):L0C >QD 
ATE i*21sPRINT CHR$(18):LOCATE 1,25 
: PR INT CHRK18) 

5070 RETURN >FF 

5080 » >YF 

5090 REM*****»******»*******»**»»»» >ZC 
» 

5100 REM*** attente pour lecture ** >DU 
* 

5110 REM*************************** >ZV 


* 

5120 » >YA 
5130 p=0:CLEAR INPUT >PF 
5140 WHILE INKEY$="" >PZ 
5150 p=p+1 :PEN p MOD 4:L0CATE 11,25 >NW 
: PR INT"Appuie sur <ESPACE>" 

5160 WEND >JG 
5170 CLS:PEN 1 >TC 
5180 RETURN >FH 
5190 » >YH 
5200 1 >IK 


5210 IF ERR=32 AND DERR=146 THEN RE >CU 
SUME 1280 ELSE PRINT*erreur ligne*; 

ERL 
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Claude LE MOULLEC 



JEU 


Kl 



Ap^en e lapin 



10 REH 
20 REH 
30 REH 
40 REH 
> 50 REH 
60 REH 
S 70 REH 
80 REH 
v 90 REH 
100 REH 
110 REH 
120 SYHBOL 
130 SYHBOL 
8,234,0 
140 SYHBOL 
.8,224,0 
/150 SYHBOL 
, ,238,0 
r 160 SYHBOL 
2,132,0 
170 SYHBOL 
4,170,0 
180 SYHBOL 
8,174,0 
190 HEHORY 


CLAUDE LE HÛULLEC 


AFTER 200 

221,0,138,142,138,138,13 


>AV 

>EC 

>WA 

>EE 

>RE 

>EG 

>TZ 

>EJ 

>PB 

>KF 

>AE 

>PH 

>HJ 


222,0,224,128,128,128,12 >HG 


223,0,238,138,138,234,42 >GA 


224,0,238,132,132,196,13 >HD 


225,0,174,170,170,174,23 >HK 


226,0,238,168,232,204,16 >HZ 


&9EFE:L0AD n roulapin",fc9 >KB 


,EFF 

^200 RESTORE 210: FOR h=fcA350 TO fcA36 
8:READ a$:POKE h,VALCi'+al):NEXT 

210 DATA 21,A2,C0,06,B0,C5,E5,06,4C 
,C5,3E,00,77,23,C1,10,F8,E1,CD,34,A 
3,Cl,10,ED,C9 

220 GOSUB 4120:HODE 0:BORDER 0 
230 RESTORE 240:FOR h=0 TO 15:READ 
| a:INK h,a :NEXT 

240 DATA 0,3,2,11,9,24,3,6,0,16,6,1 
3,26,24,9,18 

250 DEF FN po(x.y)=fcC002My-l)*80+( 
,x-l)*4 

^ 260 IF PEEK(&A340) r l THEN ga-8:da=l 
:ht=0:ba=2:fe=9 ELSE ga=74:da=75:'ht 
=72:ba=73:fe=76 

270 DIH sp(15):FÛR h=0 TO 14:sp(h+l 

)=fc9F70+(h*64):NEXT 

280 FOR h=fcAlFO TO fcAlF0+63:PÛKE h, 

OîNEXT 

290 DIH jeu(21,13):DIH all(ll) 

300 TR$=CHR$(22)+CHR$(i) 

310 NRI r CHR$(22)+CHRI(0) 

320 TEHPS=150:SC-0:clee=0:11=150 : Fl 
N=0:VlE=5:ta=l 

330 ENV 1,100,3,1 :ENT 1,100,2,2 
340 ENV 2,10,-1,2:ENT 2,10,-2,2 
350 ON BREAK GOSUB 4090 
360 REH : : : : DESSIN BASE : : : : 

^370 FOR h=l TO 23 STEP 2 


>PP 


>JG 


>XR 

>RB 

>LZ 

>GB 

>QP 


>XD 

>HG 

>UQ 

>RF 

>RZ 

>VN 

>WU 

>UP 

>QU 

>UB 

>QU 


LAPIN 


Valable pour 
CPC 464-664-6128 


Arsène Lapin , comme son 
illustre cousin> est un monte-en- 
l'air. Il doit ramasser tous les 
sacs d'or qui parsème les 
20 pièces du château 
où il est entré. 

P our les atteindre, il peut créer des 
échaffaudages de cartons. Durant 
son périble, plusieurs gardiens viendront 
l'importuner. 

Le lancement du jeu se fait par R UN 
"LAPIN". 

Le jeu se présente en 2 fichiers. Un 
fichier BASIC "LAPIN" et un fichier bi¬ 
naire "ROUTLAP" qui pour les CPC 464 
(K7) devra se trouver à la suite du premier. 
Le fichier Basic DATALAP contient les 
datas du fichier binaire. Il faut le lancer 
pour obtenir "ROUTLAP". 


380 CALL &A30C,FN po(l,h)-2,sp<7) >ZE 
390 CALL &A30C,FN po(20,h)-2,sp(7) >AH 
400 NEXT h >NB 

410 FOR h=l T0 20 >BH 

420 CALL &A30C,FN po(h,l)-2,sp(7) >ZZ 
430 CALL &A30C,FN po(h,24)-2,sp(7): >HJ 
NEXT h 

440 GOSUB 3260:GOSUB 450:GOTO 490 >AN 
450 CALL &A350 >KE 

460 FOR g=l T0 21:ieu(g,1) = 10:ieuig >RX 
,131=10:NEXT g 

^ 470 FOR g=l T0 13:ieu(1,g) = 10:ieu(2 >BH 
1 * g) = 10 :NEXT g:RETURN 
480 REH : : : : BRANCHEHENT : : : : >XU 

490 ON TA GOTO 510,530,550,570,590, >FN 
610,630,650,670,690,710,730.750,770 
,790.810,830,850,870,890,910 
500 GOTO 510:ON BREAK GOSUB 3270 >ZY 
510 RESTORE 3290:GÛSUB 930:ca=2 >ZQ 
520 PEN LLOCATE 1,1:PRINT"A/1 0/3 >PF 
200 00000":GOSUB 3060:GQT0 1210 


530 RESTORE 3330:G0SUB 930 >VH 

540 PEN lîLOCATE 1,1:PR INT"A/2 0/2 >PH 
200 00000":GOSUB 3O60:G0TÛ 1210 
550 RESTORE 3370:GOSUB 930:ca=l >ZT 
560 PEN lîLOCATE 1,l:PRINT"A/3 0/3 >BK 
200 00000":GOSUB 3060:TEHPS=200: 
nbkey=3:ch=l:G0T0 1210 
570 RESTORE 3410:G0SUB 930:ca=2 >ZQ 
580 PEN lîLOCATE 1,l:PRINT"A/4 0/4 >BT 
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200 00000»îGOSUB 3060:nbkey=0:G0 
TO 1210 

590 RESTORE 3450:G0SUB 930:ca=l >ZW 
600 PEN 1:L0CATE 1,1:PRINT"A/5 0/5 >PL 
200 00000 *îGOSUB 3060:GOTO 1210 


610 RESTORE 3490:GÛSUB 930:ca=2 >ZU 

620 PEN 1:L0CATE 1,1:PRINT"B/1 0/1 >PC 
4 200 00000*:GOSUB 3060:GÛT0 1210 
630 RESTORE 3530:G0SUB 930:ca=3 >ZR 

640 PEN 1:L0CATE 1,l:PRINT*B/2 0/2 >PK 
200 00000*:GOSUB 3060:G0TQ 1210 


650 RESTORE 3570:G0SUB 930:ca=l >ZW 

660 PEN 1:L0CATE l,l:PRlNT"B/3 0/4 >JZ 
200 00000*:G0SUB 3060:nbkey=4:ch 
=2:GOTO 1210 

670 RESTORE 3610:G0SÜB 930:ca=0 >ZR 

680 PEN 1:L0CATE 1,l:PRINT"B/4 0/4 >BV 
200 00000*:G0SUB 3060:nbkey=0:G0 
TO 1210 

690 RESTORE 3650îGOSUB 930:ca=2 >ZA 

700 PEN 1:LÛCATE 1,l:PRINT"B/5 0/5 >PN 
200 00000*:GOSUB 3O60:G0T0 1210 






710 RESTORE 3690:GÛSUB 930:ca=4 >ZZ 
720 PEN 1:L0CATE i,iîPRlNT"C/i 0/3 >PK 
200 00000*:GQSUB 3060:GOTO 1210 


730 RESTORE 3730:GOSUB 93û:ca=l >ZT 
740 PEN l.-LOCATE l,l:PRINT*C/2 0/4 >PP 
200 00000*:GOSUB 3060.-GOTO 1210 

750 RESTORE 3770îGOSUB 930:ca=i >ZZ 
760 PEN 1:LOCATE 1,l:PRINT*C/3 0/4 >JB 
200 00000*:GOSUB 3060:nbkey=4:ch 
=2:GOTO 1210 

770 RESTORE 3810:GÛSUB 930:ca=2 >ZX 
780 PEN 1:LOCATE 1,l:PRINT"C/4 0/6 >TV 
200 00000":GOSUB 3060:TEHPS=200: 
nbkey=0:GOTO 1210 

790 RESTÛRE 3850:GQSUB 930 >VD 

800 PEN 1:LOCATE l,l:PRINT"C/5 0/6 >PR 
200 00000":GQSUB 3O60:G0T0 1210 


810 RESTORE 3890:G0SUB 930:ca=l >ZZ 

820 PEN 1:LOCATE 1,1:PRINT"D/1 0/5 >PP 
200 00000*îGOSUB 3060:G0T0 1210 

830 RESTORE 3930:GÜSUB 930:ca=2 >ZX 

840 PEN l.-LOCATE 1,l:PRINT"D/2 0/8 >PW 
200 00000*:GÛSUB 3060:GOTQ 1210 


850 RESTORE 3970:G0SUB 930:ca=l 
860 PEN 1:LOCATE 1,l:PRINT"D/3 0/3 
200 00000*:GOSUB 3060:nbkey=3:ch 
=2:GOTO 1210 

870 RESTORE 4010:GOSUB 930:ca=2 
880 PEN 1 :LOCATE l,i:PRINT"D/4 0/4 
200 00000 *îGOSUB 3060:nbkey=0:GO 
TO 1210 

890 RESTORE 4050îGOSUB 930 
900 PEN 1:LOCATE l,l:PRINT"5/5 0/5 
200 00000 *îGOSUB 3O60:G0T0 1210 

910 TA=1îGOTO 490 
920 REH :::: DESSIN TABLEAU :::: 

930 spt=8:cx=4:GÛSUB 940:spt=7:cx=5 
îGOSUB 940îGOTO 1100 
940 FOR h=l TO IliREAD al 
950 al$(h)=BIN$(al,10):NEÏT h 
960 FOR h=l TO 11:1F ail(h)=*000000 
0000* THEN 1010 
L 970 FOR g=l TO 10 
980 bl*=NIDt(al$(h),g,i)ibl=VAL(blt 
) 

990 IF bl=l THEN CALL AA30C,FN po(g 
,(h«2)+l),sp(spt):jeu(g+l,h+l)=cx 
1000 NEXT g 

1010 SOUND 1,!NT(RND*600)+60,5,15:N 
EXT h 

1020 FOR h=l TO llîREAD al 
1030 al$(h)=BIN$(al,9):NEXT h 
1040 FOR h=i TO 11:IF al$(h)="00000 
0000" THEN 1090 
1050 FOR g=l TO 9 

1060 bl$=HID$(al$(h),g,l):bl=VAL(bl 

i) 

1070 IF bl=l THEN CALL &A3ÔC,FH pc( 
g+10,(h*2)+l),sp(spt):jeu(g+ll,h+l) 
=cx i 

1080 NEIT g 

1090 SOUND 1,INT(RND*600)+60,5,15îN 
EXT h:RETURN 

1100 READ pti,pty:CALL &A30C,FN po< 
ptx,pty),sp(10):jeu(ptx+l,pty/2)=5 
1110 READ nbkeyîFOR h=l TO nbkey 
1120 READ a,b:CALL &A30C,FN po(a,b) 
,sp(9):jeu(a+l,b/2)=3 
1130 NEIT h 

1140 READ x,y:CALL fcA30C,FN po(x,y) 
,sp(5):jeu(x+l,(y+l)/2)=l 
1150 al=0:nl=0:READ ions:IF aons=0 
THEN RETURN 

1160 IF ions=l THEN tt=5O:G0T0 1190 


>ZC 

>JB 


>ZQ 

>BZ 


>vx 

>PB 


>LH 

>ZX 

>BL 


ELSE tt=10 

1170 READ nx,ny:CALL &A30C,FN po(nx >PU 
,ny),sp(14) 

1180 sn=i:nl=l:EVERY 850,1 GOSUB 30 >DD 
50 

1190 READ ai, ay:CALL AA30C,FN po(ax >PQ 
,ay),sp(13) 

1200 sa=l:al=l:EVERY 950,2 GOSUB 30 >HV 
20:RETURN 

1210 EVERY 250,0 GOSUB 3O90:S0UND 2 >RA 
,50,0,15,2,2,31 
1220 REH : : : : ENTREE ORDRES 
1230 IF al=l THEN GOSUB 2420 
1240 IF ni=1 THEN GOSUB 2700 
1250 IF FIN=1 THEN 3160 
1260 IF INKET(ga)=0 THEN sens=l:GOT >JV 
>RE I il 1360 

>WU Ja 1270 IF INKEY(da)=0 THEN sens=2:GÛT >JY 

>NC 0 1480 

1280 IF lNKEY(ht)=0 THEN 1710 

>CG 1290 IF INKEY(ba)=0 THEN 1880 

>CF 1300 IF INKEY(fe)=0 THEN 1620 

1310 GOTO 1230 


a 


• • • • 
• • • • 


>ZJ 

>vc 

>VF 

>QK 


>VQ 

>NV 

>CA 

>DC 

m 


m 

>HV 
>VL 
>U 

>QN N 1320 CALL AA30C,FN po(xl,yl),sp(ll) >BR 

>UE 1330 jeu(xl+l,(yi+l)/2)=0:RETURN >AP 

>HV 1340 '«««i» VERS LA GAUCHE i«**f >YA 

1350 xl=x:yl=y:x=x-l >QE 

>TK j\1360 IF jeu(xfl,(yU)/2)=0 THEN GOS >UX 
UB 1320 îGOTO 1410 

1370 IF Jeu(x*l,(yU)/2)=6 THEN GOS >UG 
UB 1320 îGOTO 2330 

1380 IF jeu(i+l,(yU)/2)=3 THEN GOS >GA 
UB 2250 îGOSUB 1320:G0TÛ 1410 
1390 IF jeu(x+l,(y-l)/2)=0 AND jeu( >CB 
x+2,(y-l)/2)=0 THEN 1400 ELSE x=x+l 
:GOTO 1230 

1400 GOSUB 1320:y=y-2 >PU 

>VC 1410 CALL AA30C,FN po(x,y),sp(2) >ZP 

>RD 1420 SOUND 1,300,5,1,1,1,15 >UT 

1430 FOR t=l TO tt:NEIT >RX 

>NZ 1440 CALL ltA30C,FN po(x,y),sp(4) >ZV 

1450 FOR t=l TO tt:NEXT >RZ 

>AK 1460 jeu(x+l,(y+l)/2)=l:IF jeu(x+l, >HF 

>ZD (y+3)/2)=0 THEN 2050 ELSE 1230 

1470 ’t**** VERS LA DROITE «if* >YE 

>UK 1480 xl=x:yl=y:x=xU >QG 

>FP 1490 IF jeu(x+l,(y+l)/2)=0 THEN GOS >UF 

UB 1320îGOTO 1540 

>QE 1500 IF jeu(xU,(yU)/2)=6 THEN GOS >UB 
UB 1320 îGOTO 2330 

>NC 1510 IF jeu(x+l,(y+l)/2)=3 THEN GOS >GZ 


20 


UB 2250:GOSÜB 1320:G0T0 1540 . 1700 ]eu(x+2,(y+l)/2)=4:GÛT0 1230 >AC 

1520 IF jeu(x+l,(y-l)/2)=0 AND jeu! >ZQ 1710 IF JeuliU,(y-l>/2)=4 THEN 173 >BF 
x,(y-l)/2)=0 THEN 1530 ELSE x=x-l:G 0 

0T0 1230 1720 IF jeulx+1,(y-l)/2)=3 THEN GOS >TN 

1530 GOSÜB 1320:y=y-2 >PY UB 2250 ELSE 1230 

1540 CALL IA30C.FN po(x,y),sp(l) >ZT*^1730 CALL AA30C.FN po(x,y),sp(ll) >AZ 

1550 SOUND 1,300,5,1,1.1.15 >UX 1740 CALL AA30C,FN poix,y-l),sp(5) >BG 


1560 FOR t=l TO tt:NEXT >RB 1750 FOR t=l TO tt/2:NEIT t >VF 

^1570 CAa tA30C,FN po(x,y),sp(3) >ZY 1760 SOUND 1,800,5,12,,, 10 >TC 

1580 FOR t=l TO tt:NEXT >RD 1770 CALL fcA30C,FN po(x,y-l),sp(ll) >BX 

1590 1eu(x+l,ly+l)/2)=l:IF jeulx+l, >HK 

ly+3)/2)=0 THEN 2050 ELSE 1230 1780 CALL AA30C,FN po(x,y),sp(5) >ZD 

1600 CALL ABB18:H0DE 1:PEN 1:END >ZH 1790 FOR t=l TO tt/2:NEXT t >VK 

1610 REH :::: POSE CAISSES :::: >YC |800 SOUND 1,800,5,12,,,10 >TI 

1620 ON sens GOTO 1630, 1660 >UA 1810 CALL AA30C,FN poix,y),sp(ll) >AY 

1630 IF Jeulx,(y*l)/2)=0 THEN 1640 >JC 1820 CALL AA30C,FN po(x,y-2),sp(5) >BG 

ELSE 1230 1830 FOR t=l TO tt/2:NEXT t >VE 

1640 CAa AA30C.FN po(x-l,y),sp( 8 ) >BJ 1840 CALL AA30C.FN po(x,y-2),spUl) >BV 

1650 leulx,Iy+1>/2)=4:G0T0 1230 >YE 

1660 1F jeu(x+2,(y+l)/2>=0 THEN 167 >KR 1850 CALL AA30C.FN po(x,y),sp(5) >2B 

0 ELSE 1230 1860 SOUND 1,800,5,12,,,10 >TD 

1670 CALL AA30C.FN po(x+1,y),sp18) >BK 1870 jeu(x+l,(y-l)/2)=0:GOTO 1230 >AH 

1680 SOUND 1,200,3,5 >NC 1880 IF jeu(x+l,(y+3)/2>=4 THEN 190 >BN 

1690 REH :::: CAISSE DISPARAIT :::: >CU 0 



1890 IF ]eulx+l,(y+3)/2)=3 THEN GOS >TW 
UB 2250 ELSE 1230 

1900 jeu(x+l,<y+l)/2)=0:CALL &A30C, >VP 
FN poIx,y),spI 11 ) 

1910 CALL &A30C,FN poix,y+1),sp(5) >BD 
1920 FOR t=l TO tt/2:NEIT t >VE 
1930 SOUND 1,700,5,12,,,10 >TA 
1940 CALL AA30C,FN poix,y+1),sp(ll) >BU 

1950 CALL &A30C,FN poix,y),sp(5> >ZC 
1960 FOR t=l TO tt/2:NEIT t >VJ 
1970 CAa AA30C.FN po(x,y),sp(ll) >AF 
1980 CAa liA30C,FN po(x,y+2),sp(5) >BH 
1990 FOR t=l TO tt/2:NEXT t >YH 
2000 SOUND 1,700,5,12,,,10 >TN 
2010 y=y+2:Jeu(x+1,(y+l)/2)=l >IU 
2020 SOUND 1,700,5,12,,,10 >TQ 


2030 1F jeu(x+l,(y+3)/2)=0 THEN 205 >KB 
0 ELSE 1230 

2040 REH ; : : : DESCENTE EN BAaON :: >DH 

• S 

• • 

2050 ]eu(x+l,(y+l)/2)=0:tby=(y+3)/2 >JP 
:tn : 0 

2060 IF jeu(x+l,tby)=0 THEN t<w=to« >PV 
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□ 110 F abonné 
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00 
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de Pan -35170 BRUZ. 
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+1 ELSE 2080 

2070 tby=tby+l:GÛTO 2060 >TK 
2080 IF toi=l THEN 2180 >QJ 
2090 FOR h=l TÛ toa*2 >NH 
2100 SOUND 1,46+(h*10),3,5 >TD 


2110 CALL kA30C,FN po(x,y),splll) >AR 
2120 IF y>4 AND h>2 THEN CALL &A30C >XP 
,FN po(x,y-l),sp(12) 

2130 y=y+i:CALL &A30C,FN po(x,y),sp >FG 
(5) 

2140 FOR t=l TO tt:NEXT t >TF 

2150 IF y>4 AND h>2 THEN CALL &A30C >XT 
,FN po(x,y-2),sp(il) 

2160 NEXT h >VD 

2170 jeu(x+l,(y+l)/2)=l:G0T0 2230 >AB 
2180 IF sens=l THEN spt=4 ELSE spt= >DD 
3 

2190 CALL fcA30C,FN po(x,y),sp(ll) >AA 
2200 y=y+2:CALL &A30C,FN po(x,y),sp >JB 
(spt) 

2210 FOR t=l TO ttîNEXT t >TD 

2220 jeu(x+l,(y+i)/2)=l >QC 

2230 IF jeulx+1,(y+3)/2)=8 OR jeu(x >KH 
+1,(y+3)/2)=9 THEN 3160 ELSE 1230 
2240 REM ::: : RAMASSE SACS :::: >YL 

2250 clee=clee+l:IF nbkey>9 THEN 22 >EQ 
80 

2260 PEN 0:LOCATE 6,1:PRINT CHR$(14 >TX 
3)îPEN 1 :LOCATE 5,1:PRINT TR$;clee 
2270 SC=SC+1:G0SUB 3060 : GOTO 2290 >AQ 
2280 PEN OîLOCATE 5,1: PR INT CHRI114 >WC 
3)+CHRI(143):PEN IsLOCATE 4«IsPRiNT 
TRI;clee.-GOTO 2270 

2290 IF clee=nbkey THEN 2300 ELSE R >HZ 
ETURN 

2300 SOUND 1,2056,60,15 >QU 

2310 CALL &A30C,FN po(ptx,pty),sp(6 >MF 
):jeu(ptx+l,pty/2)=6:RETURN 
2320 REM : : : : GAGNE : : : : >QF 

2330 FOR h=0 TO 3:au=REMAIN(h):NEXT >DZ 
2340 CALL fcA30C,FN po(ptx,pty),sp(1 >EX 
0 ) 

2350 SOUND 1,2056,60,15:FOR t=l TO >ML 
1000:NEXT t 

2360 INK 15,18,0:FQR h=l TO 20 >VN 
2370 SOUND l,h*10,10,14:NEXT h >XL 
2380 TEMPS=200:cIee=0:1NK 15,0:ta=t >HA 
a+1:IF ta=41 THEN ta=l:ca=0 
2390 ERASE jeu:D!M jeu(21,13):GOSUB >GM 


450 

2400 GOTO 490 >FE 

2410 REM :::: LES GARDIENS ::::: >ZY 


2420 Bxl=ax:nyl=ay >PG 

2430 ON sb GOTO 2440,2540,2600,2650 >AU 

2440 bx=bx+1: IF jeulax+1,(ay+l)/2)= >NF 
1 THEN 3160 

^2450 IF jeulax+1,lay+i)/2)=0 THEN 2 >DZ 
500 

2460 1F jeu(ax+l, (By+l)/2)=4 AND ca >CF 

1) 0 THEN cai=cal-l:jeu(ax+l,(ay+l)/ 

2) =0:G0SUB 2480:GOTO 2490 

2470 bx=bx-1 >HD 

2480 sa=INT(RND*4)+l:IF sb=1 OR sa= >BY 

3 THEN 2480 ELSE RETURN 

2490 SOUND 2,50,0,15,2,2,31 >UE 

2500 CALL fcA30C,FN po(Bxl,Byl),sp(l >EN 
1 ) 

2510 )eu(Bxl+l,(Byl+i)/2)=0 >VD 

2520 CALL îtA30C,FN po(Bx,ay),sp(13) >CZ 

2530 jeu(*x*l, (By+l)/2)=8: RETURN >BD 
2540 ay=ay+2:IF jeulax+1, (By+l)/2)= >NK 
1 THEN 3160 

2550 IF jeulax+1,(ay+i)/2)=0 THEN 2 >DA 
500 

2560 IF jeulax+1,(ay+l)/2)=4 AND ca >CH 
1>0 THEN cal=cai-l:jeulax+1,(ay+l)/ 
2)=0:GÛSUB 2580:GOTO 2490 
2570 ay=iy-2 >HH 

2580 sb= 1NT(RND*4)+1:1F sa=2 OR sb= >BC 

4 THEN 2580 ELSE RETURN 

2590 GOTO 2500 - >NA 

2600 bx=bx- 1:1F jeulax+1,lay+l)/2)= >NF 
1 THEN 3160 

2610 IF jeuUx+i, (ay+l)/2)=0 THEN 2 >DX 
500 

\2620 IF jeu(BX+l,(ay+l)/2)=4 AND ca >CB 
1>0 THEN cal=cal-i:jeu(ax+l,(ay+l)/ 
2)=0:GQSUB 2640:GÛTO 2490 
2630 bx=bx+1 >GK 

2640 sb=INT(RND» 4)+1:IF sa=3 OR sa= >BU 

1 THEN 2640 ELSE RETURN 
2650 ay=ay-2:IF jeu(ax+l,(ay+l)/2)= >NP 

1 THEN 3160 ‘ 

2660 IF )eu(ax+l,(ay+l)/2)=0 THEN 2 >DC 
500 

2670 IF jeu(ax+l,(ay+l)/2)=4 AND ca >DD 
1>0 THEN cal=cal-l:jeulax+1,lay+1)/ 
2)=0:G0SUB 2690:GOTO 2490 
2680 ay=ay+2 >HH 

2690 sa=INT(RND*4)+l:IF sa=4 OR sa= >BG 

2 THEN 2690 ELSE RETURN 
2700 nxl=nx:nyl=ny 


2710 ON sn GOTO 2720,2830,2900,2960 >AG 

\2720 nx=nx*t:IF jeu(niH,tny+i)/2)= >NL 
1 THEN 3160 

2730 IF jeu(nx+l,(ny+1)/2)=0 THEN 2 >DP 
790 

2740 IF jeu(nx+l,(ny+l)/2)=4 AND ca >YT 
>0 THEN ca=ca-l:jeu(nx+l,(ny+l)/2)= 

0 :GOSUB 2770:GOTO 2780 
\2750 1F ch>0 AND jeulnx+l,(ny+l)/2) )VU 
=8 THEN GOSUB 3120 

2760 nx=nx-l >HH 

2770 sn=INT(RND*4)+l:IF sn=l OR sn= >BF 

3 THEN 2770 ELSE RETURN 

2780 SOUND 2,50,0,15,2,2,31 >UG 

2790 CALL kÀ3QC,FN po(nxl,nyl),sp(i >EC 
1 ) 

\2800 jeuInxHl, (ny 1 ♦ î)/2) =0 >YH 

2810 CALL &A30C,FN polnx,ny),sp(14) >CE 

^820 jeulnx+l,(ny+l)/2)=9:RETURN >BJ 
2830 ny=ny+2:IF jeulnx+l,(ny+l)/2)= >NR 
1 THEN 3160 

2840 IF jeulnx+l,(ny+l)/2)=0 THEN 2 >DR 
790 

2850 IF jeulnx+l,(ny+l)/2)=4 AND ca >YX 
>0 THEN ca=ca-l:jeulnx+l,(ny+l)/2)= 

0:GOSUB 2880:GOTO 2780 
2860 IF ch>0 AND jeulnx+l,(ny+l)/2) >VW 
=8 THEN GOSUB 3120 

2870 ny=ny-2 >JC 

2880 sn=INTlRND*4)+l:IF sn=2 OR sn= >CD 

4 THEN 2880 ELSE RETURN 

2890 GOTO 2790 >PE 

2900 ni=nx-i:lF jeulnx+l,(ny+l)/2)= >NN 
1 THEN 3160 

2910 IF jeulnx+l,(ny+l)/2)=Û THEN 2 >DP 
790 

2920 IF jeulnx+l,(ny+l)/2)=4 AND ca >YT 
>0 THEN ca=ca-l:jeulnx+l,lny+l)/2)= 

0:GOSUB 2950:GOTO 2780 
2930 IF ch>0 AND jeulnx+l,(ny+1)/2) >VU 
=8 THEN GOSUB 3120 

2940 nx-nx*1 >HF 

2950 sn=I NT(RND*4) +1:1F sn=3 OR sn= >BF 
1 THEN 2950 ELSE RETURN 
2960 ny=ny-2:IF jeulnx + l, lny+l)/2)= >NY 
1 THEN 3160 

2970 IF jeulnx+l,(ny+l)/2)=0 THEN 2 >DW 
790 

2980 IF jeulnx+l,(ny+l)/2)=4 AND ca >YL 
>0 THEN ca=ca-i:jeulnx+l,(ny+1)/2)= 
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OîGÛSUB 3010 îGOTO 2780 

2990 IF ch>0 AND jeu(nx+l,(ny+l)/2) >VA 

=8 THEN GOSUB 3120 

3000 ny=ny+2 >GG 

3010 sn=INT(RND*4)+l:IF sn=4 OR sn= >BG 
2 THEN 3010 ELSE RETURN 
3020 si=1NT(RND*4)+1 :ca1-ca:RETURN >EJ 
3030 'TEL:96.38.94.24 >IJ 

3040 REM :::: GESTION CÛHPTEURS ::: >EV 
• 

3050 sn=INT(RND*4)+l:ca=ca:RETURN >DG 
3060 PEN 0:IF SC>99 THEN LOCATE 16, >NU 
1:PRINT CHR$(143)+CHRI(143)+CHR$(14 
3):PEN 1:LOCATE 15,1:PRINT TRI;SC;N 
RI:RETURN 

3070 IF SC>9 THEN LOCATE 17,1:PR!NT >KN 
CHRK143)+CHRI(143):PEN 1:L0CATE 1 
6 ,1:PRINT TRI;SC;NRI:RETURN 
3080 LOCATE 18,1:PRINT CHRK143) :PE >BA 
N 1:LOCATE 17,1:PRINT TRI;SC;NRI:RE 
TURN 

3090 DI:TEMPS=TEHPS-5:PEN 1:LOCATE >WT 
10,1 : PR I NT NRI; TEMPS: PR INT CHRK7) 
x 3100 IF TEMPS<5 THEN FIN=1:EI:RETUR >FL 
N 

3110 El:RETURN >FH 

3120 chi=INT(RND*18m:chy=INT(RND« >UP 
lD+lilF jeu(chx,chy)<>0 THEN 3120 
3130 FOR sd=l TO 15:S0UND l,50-sd,l >JE 
,5:NEXT 

3140 CÀLL îtA30C,FN po(chi-l, (chy*2) >CR 
-l),sp(9):ch=ch-l:jeu(chi,chy)=3:RE 

TURN 

3150 REH :::: PERDU :::: >RG 

3160 FOR h=0 TO 3:«u=REHAIN(h):NEIT )EL 
h 

3170 F1N=0 >ND 

3180 V1E=VIE-1 : BORDER 26:INK 0,26:1 >UF 
NK 1,26:INK 2,26 

3190 OUT fcBCOO,2:OUT ABD49,49:SOUND >DJ 
4,1500,50,7,0,0,10:0UT ABCOO,2:OUT 
ABD49,46 

3200 FOR t=l TO 4000:NEIT t >UF 

3210 BORDER 0:INK 0,0:INK 1,26:INK >TB 
2,13:cal=0:ca=0 

3220 GOSUB 3260:ERASE jeu:ERASE al) >GQ 
:DIH jeu(21,13):D1H al)(ll) 

3230 FOR t=l TO 2000:NEXT t >UG 

32*0 TEHPS=150:c1ee r O:ca = 0 >VG 

3250 IF VIE=0 THEN 320 ELSE GOSUB 4 >HD 
50:GOTO 490 

3260 PEN 1:LOCATE 1,1:PRINT" ONE P >HA 
LAYER HAN ":LOCATE 18,1:PRINT VI 



E:RETURN 


3270 FIN=1:RETURN >NY 

3280 ’***«« TABLEAU 1 »«»»« >YF 
3290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >RR 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

^3300 DATA 0,1,0,0,0,512,0,1,2,4,0,0 >AT 
,0,0,0,0,1,0,0,256,128,6* 

3310 DATA 12,23,3,1,3,10,3,19,3,7,2 >HC 

3.2.9.3.10.15 

3320 ’»»«** TABLEAU 2 **«» >YA 
3330 DATA 0,7,0,0,0,0,0,7,7,0,0,0,3 >ZD 
84,0,0,0,0,0,384,384,0,0 
3340 DATA 256,264,392,136,128,128,1 >FF 
36,136,136,248,0,66,66,70,66,2,2,66 
,66,66,126,0 

3350 DATA 12,3,2,3,5,17,5,10,23,1,1 >CN 
5,5 

3360 ’*«*»* TABLEAU 3 «***« >YE 

3370 DATA 8,0,128,256,0,512,0,256,1 >GK 

28,0,8,64,0,4,2,0,1,0,2,4,0,64 

3380 DATA 0,96,56,14,3,1,3,14,56,96 >UR 

,0,0,24,112,448,256,0,256,448,112,2 

4,01 

3390 DATA 11,13,2,10,9,9,13,10,23,2 >KF 
,6,17,14,17 

3400 ’*im TABLEAU 4 **»*» >XK 
3410 DATA 0,0,0,4,0,0,96,96,96,96,6 >EC 
4,24,24,24,24,16,0,0,0,0,0,0 
3420 DATA 96,48,24,8,6,0,2,2,2,2,2, >RC 
128,128,128,128,128,0,192,96,48,24, 

12 

3430 DATA 1,3,4,6,3,17,3,2,23,15,23 >NF 
,18,23,1,11,23 

3440 '«»«** TABLEAU 5 «*** >YD 
3450 DATA 0,8,192,0,0,0,32,32,0,0,1 >GL 
29,0,7,0,0,128,320,128,0,0,8,0 
3460 DATA 0,768,1,1,144,0,2,260,384 >LC 
,16,16,64,64,0,24,8,0,4,8,192,1,0- 
3470 DATA 1,3,5,6,9,3,17,12,13,16,1 >AZ 

5.19.3.2.23.2.16.3.19.15 

3480 '**«»» TABLEAU 6 mu >YH 
3490 DATA 0,0,0,0,0,0,0,0,0,0,256,0 >VE 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
3500 DATA 0,18,18,639,0,274,274,102 >KJ 
3,0,146,146,0,145,144,511,0,144,144 
,504,16,144,128 

3510 DATA 19,3,14,18,3,7,7,10,7,13, >VH 
7,19,7,19,11,5,15,8,15,11,15,14,15, 
4,23,7,23,10,23,13,23,1,23,2,16,7,1 
,15 

3520 ’**»*« TABLEAU 7 »**«« >YC 

3530 DATA 0,0,1023,1023,1023,0,0,0, >CH 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 


35*0 DATA 0,831,0,0,0,0,1023,0,831, >HG 
0,0,0,511,0,0,0,0,499,0,511,0,0 
3550 DATA 19,3,2,1,3,19,17,15,23,2, >JG 

10.3.10.17 

3560 '§»«** TABLEAU 8 **«•* >YG 

3570 DATA 32,0,0,0,0,0,0,0,0,0,32,1 >IA 
6,0,0,0,0,0,0,0,0,0,16 
3580 DATA 0,14,17,1,65,63,65,1,17,1 >LE 
4,0,0,448,32,0,8,480,8,0,32,448,0 
3590 DATA 15,13,2,10,5,10,21,7,19,2 >KB 
,4,13,16,13 

3600 '»•*»* TABLEAU 9 «»««« >YB 

3610 DATA 0,0,0,0,0,3,6,0,0,0,0,0,1 >IK 
,0,0,384,256,0,0,0,0,0 
3620 DATA 0,16,16,1011,0,0,0,1023,2 >PH 
, 2,0,0,256,256,511,0,0,0,319,32,32, 

0 

3630 DATA 19,3,4,1,3,18,3,1,19,19,1 >VB 
9,15,15,2,19,7,1,23 
3640 ’Miit TABLEAU 10 **«•« >YF 

'3650 DATA 0,896,0,1,0,0,0,256,0,2,4 >ZA 

,0,0,0,256,0,2,0,0,0,0,0 
3660 DATA 0,0,0,14,8,8,8,527,0,0,1, >GX 
128,0,0,224,32,33,32,480,0,0,0 
3670 DATA 19,23,5,1,3,1,15,8,13,13, >CD 

15.19.11.9.23.2.8.15.17.17 

3680 ’«*** TABLEAU 11 *»»• >YK 
^3690 DATA 0,0,967,967,967,960,960,9 >HR 
60,960,960,960,0,0,399,399,399,15,1 

5,15,15,15,15 

3700 DATA 1,57,40,40,40,40,47,40,40 >VB 

,40,0,0,112,80,80,80,80,464,80,208, 

80,64 

3710 DATA 12,17,3,10,13,6,23,14,23, >RC 
14,3,2,6,21,14,21 

3720 '*»§»« TABLEAU 12 »«*«* >YE 
3730 DATA 0,960,960,960,960,1022,10 >CV 
22,1022,1022,1022,0,0,8,0,128,0,64, 
8,0,0,32,3 

^37*0 DATA 0,1,1,1,1,1,1,1,1,1,1,0,5 >ZF 
03,0,1,0,0,503,0,256,0,0 
3750 DATA 19,23,4,2,9,9,15,19,7,11, >NR 
17,3,23,2,13,9,13,19 
3760 ’»«**» TABLEAU 13 »*»*« >YJ 

3770 DATA 1,2,0,0,0,4,4,0,0,0,1,0,0 >ZR 
,0,0,0,128,128,0,0,256,0 
3780 DATA 0,0,1,127,1,1,1,127,1,0,0 >BH 
,0,1,0,504,0,0,0,504,0,0,0 
3790 DATA 19,3,2,9,11,11,11,17,23,2 >KN 
,13,3,9,19 

3800 ’iti» TABLEAU 14 ***i« >YD 

3810 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1 >BF 
28,0,0,272,0,0,256,256,0,0 
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3820 DATA 4,962,4,960,1,1,33,33,33, >LE 
33,33,64,0,64,0,0,305,0,0,0,504,0 
3630 DATA 19,11,6,1,3,1,7,13,5,11,1 >FF 

5.1.23.11.23.7.23.2.11.3.3.17 

3840 •»**»« TABLEAU 15 «*«»« >YH 
3850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >BU 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

3860 DATA 0,7,960,31,0,480,256,886, >CY 
0,324,324,0,478,2,315,0,368,264,448 
,8,264,264 

3870 DATA 19,23,6,1,5,1,9,10,3,10,1 >GR 
1,14,17,16,7,17,3,2,1,23,19,15 
3880 ’»»»*» TABLEAU 16 •*«»< >ZB 
3890 DATA 0,1,0,0,0,0,0,0, 8 , 8 , 8 ,0,5 >VE 
10 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0,0 
3900 DATA 0,510,0,0,512,63,32,32,33 >LK 
,33,33,0,1,0,0,0,487,0,0,16,16,16 
3910 DATA 1,9,5,1,3,19,3,19,15,10,1 >UE 
7,15,17,7,17,1,17,23 
3920 ’!«*« TABLEAU 17 «*«»« >YG 
3930 DATA 0,0,0,0,0,0,0,0,0,0.0,0,0 >RT 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

3940 DATA 3,512,768,192,48,12,1,96, >TQ 

24,6,1,0,384,06,24,0,0,256,192,48,1 

2,3 

3950 DATA 1,3,8,12,3,19,3,14,5,1,9, >UN 
10,17,18,17,12,19,9,23,17,23,2,2,5, 

13.5 

3960 'ntt* TABLEAU 18 »»**« >ZA 

3970 DATA 1,2,0,0,512,512,0,0,0,0,1 >ZL 

,0,0,0,0,4,3,0,0,0,256,0 

3980 DATA 0,0,1,1,1,127,1,1,1,0,0,0 >XH 

,0,1,0,0,504,0,0,0,0,0 

3990 DATA 19,5,1,11,15,17,23,2,5,17 >ER 

,17,5 

4000 * litil TABLEAU 19 »***» >XG 

4010 DATA 0,0,0,0,64,0,0,0,0,2,4,0, >CE 

340,340,0,0,0,0,0,0,340,340 

4020 DATA 0,24,102,65,1,32,65,65,38 >HP 

,24,0,0,1,0,510,0,0,0,511,0,0,0 

4030 DATA 19,3,4,7,7,19,9,10,13,5,1 >VN 

7.19.23.2.19.7.19.5 

4040 '»**«* TABLEAU 20 ««>«« >YA 
4050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >DH 
,0,0,272,272,272,272,272,0,0 
4060 DATA 0,511,256,256,272,272,272 >VY 
,272,287,511,0,0,504,8,0,0,0,0,0,8, 

504,0 

4070 DATA 1,23,5,7,3,6,9,12,13,14,1 >AQ 

3.13.15.9.17.2.11.3.4.17 

4080 '» BREAK » >YE 

4090 FI NM: RETURN >NZ 

4100 'POUR LE CAS OU VOUS ETES BLOQ >IH 


UES;POUR NE PAS ATTENDRE LA FIN DU 
TEMPS IMPARTI 

4110 REM :::: PRESENTATION :::: >ZK 

4120 DEF INT a-z:CALL &BBFF:EVERY 25 >QN 
,2 GOSUB 4390 

4130 LMC4=CHR$(221)*CHR$(222)+CHR4( >QL 
223)+CHR*(224)tCHR»(225)+CHR»(226) 

. 

4140 MODE 0:BORDER 0:RESTORE 4150:F >NV 
OR h-0 TO 15:READ a:INK h,a:NEXT 

4150 DATA 0,4,8,17,26,15,11,20,9,3, >PY 
12,6,13,24,8,18 

4160 LOCATE 1,7:F0R AM TO 6:PAPER >DU 
ClNT<A/2):PEN INT<A/2>:PRINT STRING 
t(80,207);:NEXT:PAPER 0 
^ 4170 WINDOWftl,1,6,23,25:CLStl:UINDO >NF 
Wll,7,16,21,25:CLSI1:UIND0Wtl,2,3,1 
9,23:CLS#1 : UINDOWI1,19,19,17,25:CLS 
ll:FOR AM TO 8:PEN 0:L0CATE 21-A.l 
7+A:PRINT CHR»(22)CHR4(1)CHR$(214)S 
TRINGKA-l, 143);:NEXT:PEN 1 
4180 PLOT 250,80,0:DRAUR 0,7O:PL0T >MF 
200,150:DRAUR 100,0:FOR A=0 TO 8:PL 
OT 196+A»12,154:DRAUR 12,-6:NEXT:F0 
R A=0 TO 3:PLOT 300+A»2-140«(A>l),8 
0:DRAUR 0,60:NEn:PLOT 300,130:DRAU 
R 60,-10.‘DRAUR 20,0:DRAUR 60,10 
''4190 0RIG1N 0,0:INK 4,0:PL0T -10,-1 >YZ 
0,4:a$-*ARSENE LAPIN':LOCATE 1,1: PR 
INT CHR*(22)+CHRt(0) 

4200 TAG:F0R HM TO LEN(A*):B»=MID» >MZ 
(A4,H,1):HOVE (H<36)-36,14:PRINT B4 
;:N£XT:TAGOFF 

4210 ENC=5:EN2M1:Y=300:XM10 >XL 
4220 FOR G=0 TO 14 STEP 2:F0R H=0 T >KB 
0 432 STEP 2 

4230 IF TEST(H,2+G)-4 THEN GOSUB 42 >DP 
50 

4240 NEXT H,G:LOCATE 1,2S:PRINT NR4 >MZ 
;SPACE4(18): INK 4,26:GOTO 4260 
* 4250 PLOT H+X,Y+(G»2J,ENC:PLOT HM, >BA 
Y*2+(G»2),EN2:RETURN 
4260 PEN 0:LOCATE 1,25:PR INT SPACE4 >GE 
( 12 ) 

4270 FOR HM TO 5:M0VE 30,H:DRAU 61 >UR 
0,H,15:NEXT:F0R H=6 TO 20:M0VE 30,H 
:DRAU 610,H,14:NEXT 

4280 FOR H=20 TO 22:M0VE 30,H:DRAU >VE 
610,H,11:NEXT:FOR HM TO 8:M0VE H,2 
6 :DRAU H,374,15:NEXT 
4290 FOR H=8 TO 20:HOVE H,26:DRAU H >XF 
,374,14:NEXT:F0R H=20 TO 22:M0VE H, 


26:DRAU H,374,11:NEXT 

4300 FOR H=616 TO 620:MOVE H,26:DRA >EA 

U H,374,11:NEXT:F0R H=620 TO 632:M0 

VE H,26:DRAV H,374,14:NEXT 

4310 FOR H=632 TO 636:M0VE H,26:DRA >EA 

U H,374,15:NEXT:F0R H=394 TO 400:H0 

VE 30,H:DRAU 610,H, 15:NEIT 

4320 FOR H=382 TO 392:H0VE 30,H:DRA >EU 

U 610,H,14:NEXT:F0R H=378 TO 380:M0 

VE 30,H:DRAU 610,H, 11:NEXT 

4330 X=20:FOR TM TO 22:M0VE T,X:DR >CZ 

AU T,20,15:X=X-1:NEXT T 

4340 X=380:F0R TM TO 22:H0VE T,X:D >BE 

RAU T,380:X=XM:NEXT T 

4350 X=380:F0R T=618 TO 636:M0VE T, >HB 

380:DRAU 618, X :X=X+1:NEXT T 

4360 XM.-FOR T=618 TO 636:M0VE T,20 >CD 

:DRAU T,X:X=X+1:HEXT T 

4370 PLOT -10,-10,15:TAG:H0VE 32,44 >HG 

:PR1NT lac*;:TAGOFF:LOCATE 1,1 

4380 UHILE INKEY4-":UEND:au-REHAIN >GP 

(2):CALL ABCA7:G0T0 4450 

4390 DI:1F (SQ(1) AND 7)=0 THEN El: >UF 

RETURN ELSE READ p,d:IF p=-l THEN R 

ESTORE 4410:G0T0 4390 

4400 SOUND 1,p,d,4:GOTO 4390 >UU 

4410 DATA 1,41,71,50,1,8,71,50,1,8, >BN 

67.50.1.8.60.50.1.8.60.50.1.30.67.5 
0,1,8,71,50,1,8,80,50,1,8,89,50,1,8 
,89,50 

' 4420 DATA 1,8,80,50,1,8,71,50,1,8,7 >BB 

1.50.1.12.80.33.1.8.80.83.1.12.71.5 
0,1,8,71,50,1,8,67,50,1,8,60,50,1,8 

,60,50 

4430 DATA 1,8,67,50,1,8,71,50,1,8,8 >BF 
0,50,1,8,89,50,1,8,89,50,1,8,80,50, 
1,8,71,50,1,8,80,50,1,8,89,25,89,50 
,- 1,1 

4440 REM :::: JOYSTICK/CLAVIER :::: >DL 


4450 MODE 1:PEN 1:PRINT:PRINT:PRINT >FZ 

4460 PRINT" JOYSTICK . >LL 

.. * J ! 

4470 PRINT:PBINTrPRINT >UT 

4480 PRINT’ CLAVIER . >LH 

..'CI 

4490 a*= INKEY*: IF aM*" THEN 4490 >ZU 
4500 a»=UPPER*(al):IF a»=*J' THEN 4 >DT 
520 

4510 IF a*='C' THEN POKE AA340,1:RE >FU 
TURN 

4520 RETURN ^v***>, 
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LAPIN 2 

5 HEHQRY MFFFïCLS 

7 LOCATE 1,IOîPRINT ■ DATAS DE LA LIG 
NE CORRECTS":PEN 2 
10 A=44000:F=&4450:L=100:WHILE A<=F:F 
OR A=A TO A+15:READ C$:K=VAL("i"+C$): 
S=S+K+65536KS+K>32767):IF A<=F THEN 
POKE A,K 

20 NEXTîREAD DI:T=VAL("fc"+D$) : IF TOS 
THEN PRINT CHRN7);"Erreur 1igne";L: 
END ELSE L=L+5 

25 LOCATE 20,IOîPRINT 1-5:REND 
100 DATA 20,01,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
105 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
110 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
115 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
120 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
125 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
130 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00,0021 
135 DATA 00,00,13,13,02,01,23,23,00,0 
1,23,23,02,43,23,56,0195 
140 DATA A9,43,23,FC, 76,C3,93,56, FC, C 
3,C3,56,FC,C3,C3,83,0B9F 
145 DATA A9,03,C3,C3,02,FC,43,83,83,5 
6,A9,C3,02,56,FC,43,1371 
150 DATA 83,AB,FC,03,03,AB,A9,3C,17,5 
7,03,3D,2B,01,FF,17,1921 
155 DATA 02,01,23,23,00,00,13,13,02,0 
1,13,13,02,56,A9,13,1ACD 
160 DATA 83, B9,FC, 13,83,FC, A9,63,C3, F 
C,A9,C3,C3,56,43,C3,24ED 
165 DATA C3,01, C3,C3,03,43,43,83, FC, 0 
1,C3,56,A9,43,83,FC,2CC4 
170 DATA A9,03,03,FC,57,2B,3C,56,57,1 
7,3E,03,AB,01,2B,FF,3208 
175 DATA 02,00,13,13,02,01,23,23,A9,4 
3,23,56,76,43,23, FC, 35B6 
180 DATA FC,C3,93,56,FC,C3,C3,56,A9,C 
3, C3,83,02,03, C3, C3,3F73 
185 DATA 83,56,43,83,02,56,A9,C3,02,2 
9,FC,43,83,29,FC,A9,4691 
190 DATA 03,2B,56,A9,00,2B,AB,03,00,0 
3,FF,FF,02,01,3F,7F,4B59 
195 DATA 02,01,23,23,00,56,13,13,02,B 
9,A9,13,83,FC,FC,13,5023 
200 DATA 83,FC,A9,63,C3,56,A9,C3,C3,0 



1,43,C3,C3,43,C3,C3,5989 

205 DATA 03,01,43,83,A9,01,C3,56,A9,4 

3,83,FC,16,03,56,FC,5FEC 

210 DATA 16,00,56,A9,17,00,03,57,17,0 

1,FF,FF,03,01,BF,3F,648A 

215 DATA 02,00,13,13,02,01,23,23,23,0 

1,23,23,23,01,23,A9,6655 

220 DATA 81,01,D6,76,83,43,D6,FC,C3,4 

3, D6, FC, C3,43, C3, E9,7045 

225 DATA C3,01,83,83,83,01,E9,43,A9,0 

5, FC, D6, AD, 05,56, FC, 7843 

230 DATA 07,01,5E,FC,0B,01,D6,FC,83,0 

1,56,56,03,55,FF,57,7E61 

235 DATA FF,00,11,33,00,00,22,00,22,1 

1,00,00,31,22,00,00,804C 

240 DATA 31,22,00,00,91,22,00,00,91,2 

2,00,00,31,22,00,00,8258 

245 DATA 31,22,00,00,31,22,00,00,31,2 

2,00,00,31,22,00,00,83A4 

250 DATA 31,22,00,00,31,22,00,00,91,2 

2,00,00,91,33,33,33,8627 

255 DATA 33,44,CC,44,CC,10,CC,10,CC,1 

0,30,10,30,00,00,00,8AB2 

260 DATA 00,CC,44,CC,44,CC,10,CC,10,3 

0,10,30,10,00,00,00,8F0A 

265 DATA 00,44,CC,44,CC,10,CC,10,CC,1 

0,30,10,30,00,00,00,9362 

270 DATA 00,CC,44,CC,44,CC,10,CC,10,3 

0,10,30,10,00,00,00,97BA 

275 DATA 00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,FO,FO,999A 

280 DATA FO,50,C3,C3,El,FO,FO,FO,El,E 

1,C3,C3,El,El,D2,C3,A6B0 

285 DATA El,El,El,C3,El,El,C3,C3,El,E 

1, C3, C3, El, El, C3, C3, B3EE 

290 DATA E1,F0,C3,C3,E1,E1,C3,D2,AO,F 

0,FO,FO,00,00,00,00,BEOC 

295 DATA 00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00,00,BEOC 

300 DATA 00,00,00,00, AO, 55,50, AA, AO, 0 

0,F0,F0,00,54,54,A8,C3CB 

305 DATA 00,00,FC,FO,00,41,F4,F5,20,D 

2, F4,F5,BA,D2,F4,FO,CE2C 

310 DATA BA,D2,FO,F8,BA,D2,FO,FO,BA,4 

1,FO,FO,30,00,D2,F5,D9DE 

315 DATA 20,00,50,CF,00,00,EO,60,8A,5 

0,60,60,65,BO,6A,60,DFD6 

320 DATA 60,90,6A,65,CA,95,6A,CF,CF,9 

5,6A,60,60,95,6A,60,E81A 

325 DATA 60,95,6A,60,60,33,6A,60,60,9 

1,6A,60,60,95,6A,60,EEBO 

330 DATA 60,95,6A,60,60,95,6A,65,CA,9 

5,6A,CF,CF,C0,6A,60,F724 


335 DATA 60,55,FF,FF,00,00,00,00,00,F 

F,FF,00,00,00,00,00,FBD5 

340 DATA 00,00,55,FF,FF,00,00,00,00,0 

0,00,00,00,FF,FF,FF,0125 

345 DATA 00,00,00,00,00,00,00,00,00,0 

0, FF, FF, FF, 00,00,00,0422 

350 DATA 00, FF,FF,00,00,00,00,00,00,0 

0,00, FF, AA, 00,00,00,07C9 

355 DATA 00,00,04,OC,00,00,OC,CC,88,0 

4, D8, CC, CC, 04, E4, E4,0D79 

360 DATA CC,04,D8,CC,CC,04,CC,CC,CC,0 

4,CC,CC,CC,04,CC,CC,1725 

365 DATA CC,00,4C,CC,88,00,04,CC,00,0 

0,00,8A,00,00,00,8A,1B75 

370 DATA 00,00,00,8A,00,00,00,8A, 00,0 

0,00,8A,00,00,00,8A,1D9D 

375 DATA 00,23,00,00,13,B9,02,01,76,B 

9,03,03,76,13,56,A9,214C 

380 DATA 23,03,FC,FC,03,46,56,A9,89,6 

C, 23,13,9C, 6C, 56, A9,27E4 

385 DATA 9C,29,FC,FC,16,56,56,A9,A9,F 

C, 29,16, FC, FC, BC, 7C, 3120 

390 DATA FC,56,78,B4,A9,16,FO,FO,29,0 

1,F4,F8,02,01,FC,FC,3A4E 

395 DATA 02,23,01,02,13,23,12,21,13,9 

B,30,30,67,47,30,B2,3D7D 

400 DATA 8B,12,12,A3,21,12,03,A3,21,1 

2,53,A3,21,30,A3,53 y 4218 

405 DATA 30,21,43,83,12,43,C3,63,83,8 

3,43,83,43,83,43,83,4802 

410 DATA 43,83,C3,C3,43,43,C3,C3,83,0 

1,03,03,02,01,F3,F3,4ECD 

415 DATA 02,CO,40,80,40,80,00,40,80,0 

0,00,40,80,00,00,00,528F 

420 DATA 00,00,00,00,00,00,00,00,00,0 

0,00,00,00,DD,5E,00,53CA 

425 DATA DD,56,01,DD,6E,02,DD,66,03,0 

6,10, CD,19,BD,F3,C5,5B02 

430 DATA E5,06,04,IA,77,13,23,10,FA,E 

1,CD,34, A3,Cl, 10,EF,6207 

435 DATA FB,C9,00,00,00,7C,C6,08,67,D 

0,D5,11,50,C0,19,D1,692C 

440 DATA C9,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00,00,69F5 

445 DATA 00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00,00,69F5 

700 CLSîPRINT " FICHIER LANGAGE HACHI 

NE CORRECT..." 

710 PR INT: PR INT: PR 1 NT 
720 PRINT "UNE TOUCHE POUR LA SAUVEGA 
RDE...." J 

730 CALL &BB18 d 

740 SAVE "ROULAPIN",B,&4000,1(450 
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Le programme qui suit vous permettra de créer 
des déformations latérales de Vécran. 
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inq zones de l’écran peuvent recevoir des paramètres variant de 
^ -15 à 15 par l’intermédiaire d’une RSX. Il est même possible, en 
utilisant cette nouvelle instruction, de créer des animations (vagues, 
ondulations...) le mode d’emploi est inclus dans le programme. 

Il faut taper et sauver le programme DEFORM.DAT puis le lancer 
par RUN. Deux programmes seront alors sauvés 
\ automatiquement DEFORM.ROT et DEFORM.SCN. ( 
^ Ensuite, tapez et sauvez le programme DEFORM.B AS jmâ 
V puis lancez-le par RUN pour commencer à „ 

travailler. * 
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DEFORM 


10 ’ »* DEFORMATEUR D’ECRAN «* >LA 
20 ’ (C) 1990 AHSTAR & CPC )LB 
30 ' et Stéphane Saint-»artin >LC 
40 ’ ' >LD 


50 RESTORE 60:FOR i=0 T0 15:READ a: )AL 
INK 1,a:NEXT:BORDER 0 
60 DATA 0,1,5,11.23,26,25,24,16,15, >LH 
6,3,8,4,9,18 

70 MEMORY &6FFF : L0AD"Defon. son" : L0 >QD 
AD"Defora.rot":CALL AA200 
80 RESTORE 90:FOR h=A8000 TO *<8056: >MX 
READ a$:PÛKE h,VAL("fc"+a$) :NEXT 
90 DATA F5,CD,21,80,il,0,C0,19,6,8, >DE 
C5,E5,D1,23,1,4F,0,1A,ED,B0,12,1,B0 
,7,9,Ci,10,EE,Fl, 3D,20,EÛ,C9,DD,6E 
,0,DD,23,DD,23,2D,26,0,29,29,29,29, 
E5,D1,29,29,19,C9,F5,CD,21, 80,11,4 
F,C0,19,6,8,C5,E5,D1,2B,1,4F,0,1A,E 
D,B8,12,1,50,8,9,Cl,10,EE,Fl,3D,20, 
E0,C2 

100 RESTORE 110:F0R I=AA43E T0 AA4B >QD 
C:READ A$:P0KE I,VAL("A"+AI):NEÏT 
110 DATA FE,4,C0,CD,96,A4,F3,DD,66, >BF 
4,DD,6E,6,22,6A,A6,DD,66,0,DD,6E,2, 

22,6C, A6,7C, 32,6E, A6,21,6A, A6,22,6 


8,A6,21,0,FF,22,6F,A6,CD,19,BD,FB,C 
3,87,A4,C3,96,A4,FE, 1,C0,DD, 7E,0,F 
5,3E,C9,32,EB,BD,F1,CD,E,BC,3E,C3,3 

2, EB,BD,C9,21,C2,A4,1,0,81,11,9C,A4 
, CD 

120 DATA 19,BD,C3,EÛ,BC,21,C2,A4,C3 >KN 
,E6,BC,2A,68,A6,7E,FE,FF,28,7,23,22 
,68,A6,C3,B0,A4,21,6A,A6,18,EF,F6,F 
C,EE,FC,CB,FF,D9,4F,ED,49,D9,C9,0 
130 RESTORE 140:FOR I=A9500 T0 A954 >PN 
D:READ AlîPÛKE I,VAL("A"+A$):NEXT 
140 DATA 21,4C,95,1,0,80,11,25,95,3 >EC 
E,51,32,4B,95,CD,19,BD,C3,E0,BC,C9, 

21,4C,95,1,0,80,11,25,95,CD,19,BD,C 

3, E6,BC,C9,F3,F5,C5,D5,E5,3A,4B,95, 

3C,3C,FE,59,20,2,3E,4D, 4B,95,21, 

0,10,6,7F, ED, 61, ED, 79, ED, 69, ED, 79, E 
1,D1,C1,F1,FB,C9,4F,0,0 

150 ’ >RG 

160 » MENU PRINCIPAL >RH 

170 » >RJ 

180 MODE 0:CALL A7000:CALL AA43E,0, >UP 

0,0,1:CALL AA471,i 

190 L0CATE 1,24:PEN 3:PRINT w Faites >AQ 
votre choix:" 

200 IF INKEY(64)=0 THEN GOTO 250 EL >FT 
SE IF INKEY(65)=0 THEN GOTO 490 ELS 
E IF INKEY(57)=0 THEN GOTO 580 
210 CALL A8000,24:CALL ABD19:G0TQ 2 >CT 


00 


220 ’ 

>RE 

230 » DEFORMATIONS MULTIPLES 

>RF 

240 ’ 

>RG 


250 DATA LES DEFORMATIONS MULTIPLES >NU 
IC) 1990 PAR AHSTAR A CPC,,Un reve 
irréalisable sur AMSTRAD CPC !?,"E 
h,non aaintenant c’est POSSIBLE ! C 
oaaent !?",Avec ce petit prograaae 
que vous essayez en ce aoaent neae. 

» 

260 DATA Ainsi vous pourrez utilise >KX 
r les routines que contient le prog 
raaae DEFORM.ROT,"avec le prograaae 
qui suit:", 

270 CALL &A46E:H0DE 2:INK 1,0:RESTO >RC 
RE 250:FOR 1=1 TO 9:READ A$:LÛCATE 
1,1 : PR INT AlîNEXT 

280 PRINT "10 LOAD";CHR$(34);"DEFOR >YU 
M.R0T";CHR$(34); : PR INT"15 INK 0,0:1 
NK 1,26:BORDER 15:MODE 2:CALL AA200 
'INSTALLATION DES ROUTINES":PR INT 
"20 ùDEFORMON * Détonations opérât 
ionnelles":PRINT"30 ÙDEFÛR,A,B,C,D, 

E" 

290 PRINT"40 » L’écran est divise e >PE 
n 5 (E,D,C,B,A de haut en bas)":PRi 
NT"50 ’ ces valeurs (A,B,C,D,E) peu 
vent varier de -15 a 15":PRINT"60 ù 


26 



















HÛDEÛFF ’ Deformations interrompues 

■ 

300 LOCATE 1,24:PRIMT*Appuyez sur E 
SPACE pour voir la DENO !*:CALL *95 
00:FD=1 

310 IF INKEY(47)=0 THEN GOTO 330 
320 CALL *8035,24:CALL *BD19:G0T0 3 
10 

330 LOCATE 1,24:PRÎNT STRINGK80," 
*):LOCATE 15,24:PRINT*Appuyez sur E 
SPACE ou COPY ou RETÜRM ou ENTER*:L 
OCATE 1,18:PRINT"ESPACE --> Changer 
la deformation”:PR1 NT*COPY —> He 
nu principal":PRIMT*RETURN ~> Reti 
rer ou mettre les couleurs de fond” 
340 PRINT "ENTER —> Changer le bor 
der":CALL &9515:INK 1,26:ÙDEFORHON: 
ÙDEFOR,0,1,0,2,2 

350 IF INKEY(9)=0 THEN GOTO 370 ELS 
E IF INKEY(47)=0 THEN GÛSUB 420 ELS 
E IF INKEY(18)=0 THEN GOSUB 380 ELS 
E IF 1NKEY(6)=0 THEN GÛSUB 400 
360 CALL *8000,24:CALL *BD19:G0T0 3 
50 

370 CALL *9515:ÙHODEOFF:INK 1,1:B0R 
DER OîGOTO 180 

380 IF FD=0 THEN FD=1:CALL *9500:IN 
K 1,0:RETURN 

390 IF FD=1 THEN FD=0:CALL *9515:IN 
K 1,26:RETURN 

400 IF BÛ>25 OR B0=26 THEN BQ=0:BÛR 
DER BÛ:RETURN 

410 BO-BÛ+1:BORDER BO:RETURN 
420 READ a,b,c,d,e 
430 IF a=255 AND b=255 AND c=255 AN 
D d=255 AND e=255 THEN RESTORE 450: 
GOTO 420 

440 ÙDEFOR,a,b,c,d,e:RETURN 
450 DATA 2,0,2,0,2,-2,0,2,0,-2,0,1, 
0»2,2,0,0,-2,0,0,0,0,0,5,-5,5,-5,6, 
~5,0,~3,0,5,3,~5,0, _ 5,0,"5,0,"5,-4, 
-3,-2,-1,5,4,3,2,1,255,255,255,255, 
255 
460 » 

470 1 CHOIX D’UNE DEFORMATION 
480 ’ 

490 CALL *A46E:M0DE 0:CALL *7000:FO 
R i=15 TO 8 STEP -1:L0CATE l,i:PRIN 
T STRING!(19,* *):CALL *BD19:NEIT:C 
ALL *A43E,û,i,1,1 :CALL &A471,1 
500 ca=0:LOCATE l,7:PRINT"Rentrez 1 
es valeurs (comprises entre -15 et 
15):*:PAPER 1:F0R i=10 TO 18 STEP 2 



>QE 


>YQ 

>CF 

>ZU 


>BX 


>PC 


>CF 

>TQ 

>PA 

>QH 

>RV 

>YT 

>HD 

>XR 


>YM 

>KK 


>TA 

>TB 

>TC 

>YX 


>KK 


: LOCATE 2,i:CALL *BB9C:PRINT CHRK6 
5+ca):CALL *BB9C:ca=ca♦1 :NEXT:PAPER 
0 

510 LOCATE 4,10:PEN 2:INPUT , > »,A1: >RQ 
LOCATE 4,12:INPUT*> ",B1:L0CATE 4,1 
4:INPUT"> *,C1:L0CATE 4,16:IMPOT*) 
*,D1:L0CATE 4,18:IHPUT«> ", El:IF Al 
>15 OR Al<-15 OR Bl>15 OR Bl<-15 OR 
Cl>15 OR Cl<-15 OR Dl>15 OR DK-15 
OR El>15 OR El<-15 THEN GOTO 490 
520 LOCATE 1,24:PR1NT *0k ! Appuyez >YR 


sur ESPACE !■ 

530 1F INKEY(47)=0 THEN GOTO 90 >YL 
540 CALL 18000,24:CALL &BD19:G0T0 5 >CF 
30 

550 ' >TA 
560 ' TEST D'UNE DEFORMATION >TB 
570 ' >TC 


580 CALL &A46E:H0DE 0:CALL A7OOO:F0 >YX 
R 1=15 TO 8 STEP -l.-LOCATE l,i:PRIN 
T STR1NGX19," "):CALL &BD19:NEXT:C 
ALL &A43E,0,1,1,1:CALL &A471,1 
590 LOCATE 1,10:PEN 3:PRINT*Pour re >CU 
faire cette defpraation :":PRINT:PR 
1 NT" 10 LOAD" j CHR* (34) j "DEFORM. ROT" ; 
CHR$(34):PRINT"20 CALL 1A200:ÙDEFOR 
M0N":PR1NT"30 ÙDEFOR,"Al","Bl","Cl* 
,"D1",*E1:PRINT*40 CALL 1BB18.-ÙM0DE 
OFF" 

600 LOCATE 1,24:PRINT"APPUYEZ SUR E >HB 
SPACE !":ÙDEFOR,Al,Bl,Cl, DI,El :ùDEF 
ORMON 

610 IF 1 NKEY{47) =0 THEN ÙM0DE0FF:G0 >JV 
TO 90 

620 CALL 18035,24:CALL 1BD19:GÛT0 6 >DD 
10 


DEFORM-DAT 

10 ’ DATAS des prograues DEFORM. RO >LA 
T et DEFORM.SCN 

20 ’ (c) 1990 AMSTAR 1 CPC >LB 

30 ’ et STEPHANE SAINT-MARTIN >LC 
♦0 ’ >LD 

50 RESTORE 70:F0R h=lA200 TO 1A2DC: >MU 
READ a$:POKE h,YAL("l’ta»):NEXT 
60 SAVE"!DEFORM.ROT",B,1A200,IDC >AV 

70 DATA 21,A,A2,1,E,A2,CD,D1,BC,C9 >AU 
80 DATA FC,A6,E,A2,19,A2,C3,2E,A2,C >CZ 
3 


90 DATA A9,A2,C3,95,A2,44,45,46,4F, >CD 
52 

100 DATA 4D,4F,CE,44,45,46,4F,D2,4D >ED 
,*F 

110 DATA 44,45,4F,46,C6,0,21,47,A2, >CT 
11 

120 DATA 5B,A2,1,0,81,CD,D7,BC,21,5 >CG 
1 

130 DATA A2,11,61,A2,1,0,81,CD,EO,B >BF 
C 

140 DATA C9,0,0,0,0,0,0,0,0,0 >VF 
150 DATA 0,0,0,0,0,0,0,0,0,0 >UB 

160 DATA 0,AF,32,60,A2,C9,0,F3,3A,6 >BC 
0 

170 DATA A2,3C,32,60,A2,FE,1,20,4,3 >BA 
E 

180 DATA 2E,18,1A,FE,2,20,4,3E,2D,1 >CE 
8 

190 DATA 12,FE,3,20,4,3E,2E,18,A,FE >BP 
200 DATA 4,20,4,3E,2D,16,2,3E,2D,1 >ZH 
210 DATA 2,BC,EO,49,4,ED,79,FB,C9,F >CX 
3 

220 DATA 3E,2E,CD,8B,A2,21,47,A2,CD >EM 
,DD 

230 DATA BC,21,51,A2,CD,E6,BC,FB,C9 >EC 
,FE 

240 DATA 5,C0,DD,7E,0,C6,2E,32,6E,A >CP 
2 


250 

DATA 

DD,7E,2,C6,2E,32,76,A2,DD, 

>DJ 

7E 

i. 



260 

c 

DATA 

4,C6,2E,32,7E,A2,DD,7E,6,C 

>CE 

O 

270 

DATA 

2E,32,86,A2,DD, 7E,8,C6,2E, 

>DA 

32 




280 

DATA 

8A,A2,C9,E3,F3,83,33,33,33 

>DV 

,89 




290 

DATA 

0 

>GH 

300 

RESTORE 320: FOR h=17000 TO Ic7BD 

>PG 

D:READ al:POKE h,VAL("A'+a»):NEXT 


310 

SAVE' 

'!DEFORM.SCN",B,&7000, ABDO 

>CQ 

320 

A 

DATA 

21,0,CO,1,50,C8,DD,21,61,7 

>BL 

U 

330 

DATA 

DD,56,0, DD,23, E5, FD,El, DD, 

>DR 

7E 




340 

DATA 

0, DD, 23, BA,28,7,77,23,D,28 

>BJ 

350 

DATA 

1B,18,F1,DD,7E,0,DD,23,B7, 

>DJ 

28 




360 

n 

DATA 

31,5F,DD,7E,0,DD,23,77,23, 

>CJ 

V 

370 

DATA 

CC,49,70,1D, 20,F7,18,D8,FD 

>EN 

,E5 




380 

DATA 

E1,CD,26,BC,E5,FD,El, S,E, 5 

>CJ 


27 




390 DATA 20,CA,C9,FS,FD,E5,El,CD,26 >EX 
, BC 

400 DATA E5,FD,E1,F1,5,E,50,C0,F1,C >CM 
9 

410 DATA 72,23,D,28,DB,lB,Bi,3,3,9 >AC 
420 DATA 0,1,3,3A,0,BC,3,13,0,1 >XE 
430 DATA 13,22,3,38,0,55,FE,3C,3,11 >AV 
440 DATA 0,1,33,13,A2,3,38,0,15, FE >ZE 
450 DATA FF,28,3,F,0,1,33,B3,73,A2 >AU 
460 DATA 3,38,0,15,7F,BF,FF,28,3,E >AD 
470 DATA 0,33,83,73,73,0,0,3,7,CO )YJ 
480 DATA 0,0,3,8,CO,0,3,8,CO,0 >UZ 
490 DATA 0,3,6,CO,0,0,3,7,CO,0 >UX 
500 DATA 0,3,7,CO,3,4,0,7F,7F,BF >YC 
510 DATA FF,3,D,0,B9,3,4,F3,0,0 )XB 
520 DATA 3,7,48,8,0,3,8,48,0,3 >UP 
530 DATA 8,48,0,40,3,6,48,8,0,3 >RB 
540 DATA 7,48,8,0,3,7,48,8,3,3 >UZ 
550 DATA 0,3,4,3F,FE,3,C,0,F1,79 >YK 
560 DATA 28,3,4,0,3,7,C,8,0,3 >VU 
570 DATA 8,C,0,3,8,C,0,4,3,6 >ÜJ 

580 DATA C,8,0,3,7,C,8,0,3,7 >UP 

590 DATA C,6,3,5,0,14,3E,7A,3,B >XG 
600 DATA 0,50,3C,3C,FC,3,4,0,3,8 >YA 
610 DATA 8C,0,3,8,8C,0,3,8,8C,0 >XT 
620 DATA 3,8,8C,0,3,8,8C,0,3,8 >MZ 
630 DATA 8C,3,5,0,FC,3C,3C,AO,3,A >ZL 
640 DATA 0,50,78,BC,FC,3,A,0,CC,CC >AH 
650 DATA 3,13,0,CC,CC,88,0,0,44,CC >AF 
660 DATA CC,3,7,0,CC,CC,0,CC,CC,3 >AF 
670 DATA 4,0,CC,CC,3,5,0,FC,7C,B4 )ZH 
680 DATA AO,3,A,0,B4,78,F4,FC, A8,3 >AK 
690 DATA 9,0,98,98,3,13,0,98,98,3 >YA 
700 DATA 4,0,98,98,3,7,0,98,98,0 >XG 
710 DATA 98,98,3,4,0,98,98,3,4,0 >XH 
720 DATA 54,FC,F8,B4,78,3,A,0,B4,38 >BM 
730 DATA F4,FC,A8,3,3,0,30,30,3,4 >ZM 
740 DATA 0,30,30,0,3,8,30,0,3,8 >UC 
750 DATA 30,0,30,30,3,4,0,30,30,0 >YB 
760 DATA 30,30,3,4,0,30,30,0,30,30 >ZL 
770 DATA 0,30,30,0,30,30,3,4,0,54 >YK 
780 DATA FC,F8,34,78,3,A,0,B4,A8,F4 >BL 
790 DATA FC,A8,3,3,0,70, 70,3,4,0 >YV 
800 DATA 70,70,0,3,8,70,0,3,8,70 >XY 
810 DATA 0,70,70,3,4,0,70,70,0,70 >YV 
820 DATA 70,3,4,0,70,70,0,70,70,0 )YU 
830 DATA 70,70,0,70,70,3,4,0,54,FC >ZZ 
840 DATA F8,54,78,3,9,0,50,3C,A8,FC >BD 
850 DATA BC,3,4,0,FO,FO,3,4,0,FO >YT 
860 DATA FO,0,3,8,FO,0,3,8,FO,0 >XJ 
870 DATA FO,FO,3,4,0,FO,FO,0,3,7 >YG 
880 DATA FO,AO,0,FO,FO,0,FO,FO, 0, FO )BX 
890 DATA FO,3,5,0,7C,FC,54,3C,AO,3 >AQ 
900 DATA 8,0,50,3C,FC,BC,28,3,4,0 >ZG 


910 DATA 3F,3F,3,4,0,3F,3F,0,3,8 >YQ 
920 DATA 3F,0,3,8,3F,0,3F,3F,3,4 >YR 
930 DATA 0,3F,3F,0,3,7,3F,2A,0,3F >ZJ 
940 DATA 3F,0,3F,3F,0,3F,3F,3,5,0 >ZP 
950 DATA 14,7C,FC,3C,AO,3,8,0,50,7C >BZ 
960 DATA FC,2D,82,3,4,0,7F,7F, 3,4 >ZE 
970 DATA 0,7F, 7F,0,3,3,7F,3,6,0 )XB 
980 DATA 3, 3 , 7F, 3 , 6,0,7F,7F,3,4 >XK 
990 DATA 0, 7F, 7F,0,3,6,7F,2A,0,0 >YW 
1000 DATA 7F,7F, 0,7F,7F,0,7F,7F,3,5 >BP 
1010 DATA 0,41,1E,FC,BC,AO,3,8,0,14 >AB 
1020 DATA 7C»FC,87,A,3,4,0,BF,BF,3 >AT 
1030 DATA 4,0, BF, BF,0,3,3,BF,3,6 >YE 
1040 DATA 0,3,3,BF,3,6,0,BF,BF,AA >ZT 
1050 DATA 0,0,15,BF, BF, 0,3,7,BF,0 >ZH 
1060 DATA 0,BF,BF,0,BF,BF,0,BF,BF,3 >CD 
1070 DATA 5,0,5,4B,FC,BC,28,3,8,0 >ZE 
1080 DATA 14,FC,FC,7,4B,3,4,0,3,8 >ZJ 
1090 DATA FF,0,3,8,FF,0,3,3,FF,3 >YA 
1100 DATA 6,0,3,8,FF,0,FF,FF,0,0 >YN 
1110 DATA 55,FF,FF,AA,0,FF,FF,0,FF, >EL 
FF 

1120 DATA 0,FF,FF,3,5,0,87,B,FC,FC >AT 
1130 DATA 28,3,8,0,14,FC,FC,A9,C3,3 >BU 
1140 DATA 4,0,3,7,FD,A8,0,3,8,FD >YB 
1150 DATA 0,3,3,FD,3,6,0,55,3,6 >XL 
1160 DATA FD, A8,0,FD,FD,3,3,0,3,3 >ZP 
1170 DATA FD,0,FD,FD,0,FD,FD,0,FD,F >DU 
D 

1180 DATA 3,5,0,C3,56,FC,FC,28,3,8 >AB 
1190 DATA 0,14,3,3,FC,43,82,3,3,0 >YF 
1200 DATA 3,7,7C,28,0,3,8,7C,0,3 >XE 
1210 DATA 3,7C,3,6,0,54,3,6,7C,28 >YR 
1220 DATA 0,7C,7C,3,3,0,54,7C,7C, 0 >ZC 
1230 DATA 7C,7C,0,7C,7C,0,7C,7C,3,4 )BZ 
1240 DATA 0,41,83,3,3,FC,28,3,9,0 >YH 
1250 DATA BC,FC,FC,A9,2,3,3,0,3,7 >ZP 
1260 DATA B4,0,0,3,8,B4,0,3,3,B4 >XH 
1270 DATA 3,7,0,3,6,B4,0,0,B4,B4 >YC 
1280 DATA 3,4,0, B4,B4,0,B4,B4,0,B4 >ZG 
1290 DATA B4,0,B4,B4,3,4,0,1,56,FC >AJ 
1300 DATA FC,7C,3,A,0,BC,3,3,FC, 2 >ZW 
1310 DATA 3,3C,0,1,3,3,FC,7C,3,A >YJ 
1320 DATA 0,F8,3,3,FC,A8,3,3C,0,54 >AN 
1330 DATA 3,3,FC,F4,3,A,0,78,7C,FC >AG 
1340 DATA FC,3,3E,0,FC,FC,BC,B4,3,A >BY 
1350 DATA 0,50,FC,FC,A9,3,3E,0,56,F >CR 
C 

1360 DATA FC,AO,3,B,0,56,FC,82,3,3E >BJ 
1370 DATA 0,41,FC,A9,3,C,0,1,43,3 >ZE 
1380 DATA 40,0,83,2,3,AC,0,A,F,A >YJ 
1390 DATA A,3,3,0,A,5,F,5,F,5 >VP 
1400 DATA F,0,0,5,F,3,3,5,F,5 >VT 
1410 DATA F,5,F,5,F,3,3,0,A,0 >VG 


1420 DATA 0,5,F,5,F,5,F,3,6,0 >VY 
1430 DATA 5,F,0,0,5,F,5,F,0,0 >VP 
1440 DATA 3,3,5,F,5,F,5,F,5,F >VB 
1450 DATA 5,F,3,B,0,41,0,82,82,41 >YH 
1460 DATA 0,0,41,82,3,6,41,0,0,3 >XE 
1470 DATA 3,41,C3,41,0,0,82,3,4,41 >ZT 
1480 DATA 0,0,41,41,0,0,3,6,41,3 >XB 
1490 DATA 6,0,41,3,3,0,41,0,0,82 >XH 
1500 DATA 0,0,41,C3,3,4,41,0,82,0 >YX 
1510 DATA 82,41,41,3,B,0,54,0,A8,0 >ZG 
1520 DATA 54,3,3,0,A8,3,6,54,0,0 >XE 
1530 DATA 3,5,54,FC,0,A8,3,4,54,3 >YH 
1540 DATA 3,0,A8,0,0,54,0,3,3,54 >XA 
1550 DATA 3,7,0,54,FC,0,0,54,FC,0 >ZK 
1560 DATA A8,0,0,3,6,54,0,A8,0,A8 )YB 
1570 DATA 54,54,3,B,0,50,0,AO,0,50 >ZD 
1580 DATA 3,3,0,AO,50,FO,50,FO,50,5 >BR 
0 

1590 DATA 0,0,50,FO,50,50,0,50,0,AO >AE 
1600 DATA 50,FO,50,AO,3,3,0,AO,AO,0 >AD 
1610 DATA 50,0,50,FO,50,3,8,0,50,3 >ZH 
1620 DATA 3,0,50,0,AO,50,FO,3,3,50 >ZW 
1630 DATA FO,50,AO,0,AO,0,AO,50,50, >BR 
3 

1640 DATA 6,0,10,0,20,20,10,3,3,0 >YG 
1650 DATA 20,0,10,0,3,3,10,0,0,3 >XK 
1660 DATA 4,10,0,10,0,20,3,4,10,0 >YU 
1670 DATA 0,10,10,0,0,3,3,10,0,10 >YN 
1680 DATA 10,3,3,0,20,3,3,0,10,0 >XR 
1690 DATA 20,0,10,0,20,0,0,3,6,10 >Y« 
1700 DATA 0,20,0,20,10,10,3,C,0,88 >ZZ 
1710 DATA CC,88,88,0,0,44,CC,44,CC, >DB 
44 

1720 DATA CC,44,CC,0,0,3,5,44,CC,0 >AV 
1730 DATA 88,3,4,44,0,0,44,88,88,0 >ZG 
1740 DATA 44,CC,44,0,44,CC,3,3,0,88 >AV 
1750 DATA 0,0,44,CC,0,88,44,CC,0,88 >AY 
1760 DATA 0,0,3,6,44,0,88,44,CC,44 >ZC 
1770 DATA 44,3,FF,0,3,FF,0,3, FF,0 >ZG 
1780 DATA 3,FF,0,3,FF,0,3,FF,0,3 >YY 
1790 DATA F8,0,40,CO, 3,4C,0,44,8C,C >BV 
0 

1800 DATA 40,80,3,4A,0,44,48,CO,80, >BG 
0 

1810 DATA CO,3,49,0,44,48,3,4,0,40 >ZA 
1820 DATA 80,3,48,0,CO,3,6,0,40,3 >YH 
1830 DATA 48,0,80,3,6,0,40,3,47,0 >YB 
1840 DATA 40,80,40,70,FO,3,3,0,40,3 )AB 
1850 DATA 7,0,3F,3,3F,0,C0,Û,C4,30 >ZX 
1860 DATA /O,80,3,3,0,80,3,5,0,55 )YE 
1870 DATA FF,3,4,0,F,0,F,A,F,A >XR 
1880 DATA F,A,F,3,3,A,5,0,F,A >«R 
1890 DATA F,A,F,A,F,A,F,A,0,0 >WY 
1900 DATA 3,5,A,0,F,A,F,A,F,A >UZ 


28 




1910 DATA A, 0, F, A, F, A, 3, E, 0,4 >9E 
1920 DATA 80,0,84,CC,30,80,80,0,0,8 >BH 
0 

1930 DATA 3,5,0,55,FF,3,4,0,3,3 >XR 
1940 DATA 82,0,82,0,3,4,82,03,3,3 >YY 
1950 DATA 82,41,0,41,0,3,5,82,3,3 >YB 
1960 DATA 0,03,3,4,82,0,41,0,41,0 >YH 
1970 DATA 3,3,82,0,82,0,82,3,F,0 >XT 
1980 DATA 84,80,40,84,48,40,00,40,0 >CM 
,0 

1990 DATA 80,3,6,0,FC,3,4,0,A8,A8 >ZZ 
2000 DATA FC,0,FC,0,3,8,A8,54,0,54 >AJ 
2010 DATA 0,3,4,A8,FC,A8,0,0,3,5 >YT 
2020 DATA A8,0,54,0,54,0,3,3,A8,0 >YX 
2030 DATA FC,0,FC,A8,3,E,0,84,0,40 >AZ 
2040 DATA 00,0,00,0,04,0,0,80,3,6 >YD 
2050 DATA 0,FO,3,4,0,3,3,AO,0,ÀO >XQ 
2060 DATA 0, AO,AO, FO,0, AO, AO,FO,AO, >CV 
50 

2070 DATA 0,50,0,3,4,AO,0,AO,0,0 >XT 
2080 DATA 3,5,AO,0,50,0,50,0,FO,AO >ZJ 
2090 DATA A0,0,AÛ,0,0,A0,3,D,0,40 >YJ 
2100 DATA 40,3,3,0,80,0,00,18,0,0 >YG 
2110 DATA 40,3,5,0,10,30,30,3,3,0 >YU 
2120 DATA 3,3,20,0,20,0,3,8,20,10 >YU 
2130 DATA 0,10,0,3,4,20,0,20,0,0 >XC 
2140 DATA 3,5,20,0,10,0,10,0,20,0 >YK 
2150 DATA 20,0,20,0,0,20,3,D,0,40 >YG 
2160 DATA 40,0,10,FO,00,40,80,3,3,0 >AZ 
2170 DATA 40,3,5,0,00,00,88,3,3,0 >ZJ 
2180 DATA CC,0,00,88,88,0,00,3,7,88 >BP 
2190 DATA 44,0,00,88,00,3,3,88,00,8 >CC 
8 

2200 DATA 0,0,88,88,00,88,00,88,44, >BX 
0 

2210 DATA CC,88,88,0,00,88,CC,88,CC >EZ 

,88 

2220 DATA 3,D,0,40,80,0,30,08,3,3 >YR 
2230 DATA 0,50,0,0,40,3,44,0,4,08 >YA 
2240 DATA 0,80,00,0,40,80,30,80,0,4 >BV 
0 

2250 DATA 80,3,43,0,4,48,0,00,0,70 >ZT 
2260 DATA AO,80,80,0,0,40,80,3,43,0 )AQ 
2270 DATA 44,48,0,0,40,98,8,0,80,0 >ZR 
2280 DATA 0,40,80,3,43,0,44,00,0,0 >ZJ 
2290 DATA 40,40,80,8,3,3,0,4,80,3 >YU 
2300 DATA 43,0,44,00,8,0,80,00,0,24 )AL 
2310 DATA 40,80,0,4,00,3,43,0,4,00 >ZY 
2320 DATA 8,40,80,0,4,BO,80,08,0,4 >ZN 
2330 DATA 00,3,43,0,4,00,88,0,4,98 >ZY 
2340 DATA 8,20,80,64,0,44,48,3,43,0 >AX 
2350 DATA 40,00,88,0,40,70,8,8,18,2 >BB 
4 

2360 DATA 0,44,48,3,43,0,40,00,40,0 >AU 


2370 DATA 18,A4,40,4,70,24,0,0,48,3 >AJ 
2380 DATA 43,0,40,00,04,0,18,A4,10, >CP 
98 

2390 DATA BO,80,10,0,48,3,43,0,40,0 >BU 
0 

2400 DATA 84,88,4,8,58,FO,BO,08,44, >BC 
0 

2410 DATA 60,3,43,0,40,00,40,8,0,8 >ZP 
2420 DATA 70,64,48,00,A4,0,08,3,43, >BF 

i 

0 

2430 DATA 40,3,3,80,0,0,B0,C8,80,0 >ZE 
2440 DATA 80,0,48,3,43,0,40,80,0,40 >AF 
2450 DATA 0,0,24,80,0,20,0,10,8,3 >YA 
2460 DATA 44,0,00,0,0,80,0,08,0,D8 >ZD 
2470 DATA 8,00,44,8,3,47,0,40,0,80 >ZC 
2480 DATA 10,4,8,08,4,80,3,47,0,40 >ZJ 
2490 DATA 0,10,A4,4,88,80,4,80,3,4 >ZJ 
2500 DATA 0,3F,3F,2A,3,40,0,40,0,4 >ZR 
2510 DATA 40,44,80,0,40,80,3,3,0,55 >AF 
2520 DATA AA,55,FF,3,3,0,F,3,3,A >YK 
2530 DATA F,A,F,3,3,A,0,0,F,0 >VU 
2540 DATA 0,3,3,A,F,A,F,A,0,0 >VP 
2550 DATA F,0,F,A,F,A,F,A,F,3 >«A 

2560 DATA 3,A,5,0,F,A,F,A,F,A >UC 
2570 DATA F,A,3,D,0,40,0,40,80,4 >YD 
2580 DATA 08,40,80,0,40,80,3,3,0,55 >AN 
2590 DATA 0,FF,AA,3,3,0,3,6,82,41 >ZN 
2600 DATA 0,82,82,0,0,82,82,41,0,3 >ZD 
2610 DATA 5,82,3,3,0,3,3,82,0,82 >XU 
2620 DATA 0,3,4,82,03,3,3,82,41,0 >YN 
2630 DATA 41,0,3,4,82,3,F,0,00,04 >YW 
2640 DATA 0,80,3,3,0,4,80,3,4,0 >UD 
2650 DATA 54,FC,3,4,0,A8,0,FC,3,3 >ZH 
2660 DATA A8,54,0,54,3,3,0,A8,A8,0 >ZQ 
2670 DATA 0,3,4,A8,FC,3,3,0,A8,A8 >ZK 
2680 DATA FC,0,FC,0,3,8,A8,54,0,54 >AZ 
2690 DATA 0,3,4,A8,3,E,0,C0,C0,84 >ZH 
2700 DATA 88,3,4,0,0,80,3,4,0,FO ,>XD 
2710 DATA AO,3,4,0,AO,0,3,4,AO,50 >YZ 
2720 DATA 0,50,3,3,0,AO,AO,0,0,3 >XX 
2730 DATA 5,AO,3,3,0,3,3,AO,0,AO >XV 
2740 DATA 0,A0,AO,FO,0,AO,AO,FO,AO, >CA 
50 

2750 DATA 0,50,0,3,4,AO,3,E,0,40 >XK 
2760 DATA 00,00,40,3,3,0,44,48,80,3 >AX 
2770 DATA 3,0,10,30,0,30,3,3,0,3 >X9 

2780 DATA 6.20,10,0,20,20,0,0,20,20 >ZV 
2790 DATA 0,0,3,5,20,3,3,0,3,3 >VH 
2800 DATA 20,0,20,0,3,8,20,10,0,10 >YH 
2810 DATA 0,3,4,20,3,E,0,40,00,00 >YF 
2820 DATA 04,3,3,0,80,48,80,3,3,0 >YP 
2830 DATA 44,3,3,00,3,3,0,00,3,3 >YZ 
2840 DATA 88,00,88,00,3,3,88,0,0,00 >BN 
2850 DATA 3,3,0,00,3,3,88,00,88,0 >ZA 


2860 DATA 0,00,0,00,88,88,0,00,3,7 >AW 
2870 DATA 88,44,0,00,88,00,3,3,88,3 >BM 
2880 DATA F,0,00,80,84,88,0,10,0,40 >AD 
2890 DATA 80,3,47,0,00,0,40,8,98,64 >AG 
2900 DATA 8,40,80,3,47,0,00,0,0,00 >ZH 
2910 DATA 40,24,80,0,80,3,4B,0,84,8 >BN 
C 

2920 DATA 80,0,80,3,4A,0,40,84,48,3 >AQ 
2930 DATA 4D,0,40,C0,C0,3,4D,0,40,C )BY 
0 

2940 DATA C0,3,4D,0,40,C0,C0,3,4D,0 >AQ 
2950 DATA 40,CO,CO,3,4D,0,40,CO,CO, >BY 
3 

2960 DATA 4E,0,00,80,3,FF,0,3,FF,0 >AL 
2970 DATA 3,39,0,3,3,3F,3,40,0,55 >YW 
2980 DATA AA,55,AA,3,3,0,F,A,F,A >YV 
2990 DATA F,A,F,A,0,0,F,0,F,A >«G 
3000 DATA 0,0,A,0,5,3,3,0,F,0 >VA 
3010 DATA F,A,F,A,F,A,F,3,3,A >UP 
3020 DATA 5,0,F,A,F,A,F,A,F,A >UP 
3030 DATA 3,1D,0,55,0,FF,3,4,0,41 >YR 
3040 DATA 0,82,0,82,0,41,3,3,0,3 >XC 
3050 DATA 3,82,3,3,0,82,0,82,82,0 >YZ 
3060 DATA 0,3,3,82,0,82,0,3,4,82 >XP 
3070 DATA 03,3,3,82,41,0,41,0,3,4 >YH 
3080 DATA 82,3,1E,0,54,FC,A8,3,3,0 >ZF 
3090 DATA 54,0,FC,0,FC,A8,54,3,3,0 >AP 
3100 DATA A8, A8, FO,3,3,0, A8,0, A8, A8 >BG 
3110 DATA 0,0,A8,A8,FO,0,FO,0,3,8 >ZP 
3120 DATA A8,54,0,54,0,3,4,A8,3,1F >ZJ 
3130 DATA 0,50,FO,3,3,0,50,0,AO,0 >YE 
3140 DATA 0,AO,50,3,3,0,3,3,AO,3 >XA 
3150 DATA 3,0,AO,0,FO,AO,0,0,3,3 >XN 
3160 DATA AO,0,AO,0,AO, AO, FO,0, AO,A >BC 
0 

3170 DATA FO,AO,50,0,50,0,3,4,AO,3 >ZM 
3180 DATA 1D,0.10.20,10,30,3,3,0,10 )AA 
| 3190 DATA 0,20,0,0,20,10,3,3,0,3 >XH 
3200 DATA 3,20,3,3,0,20,0,20,20,0 >YL 
3210 DATA 0,3,3,20,0,20,0,3,8,20 >XP 
3220 DATA 10,0,10,0,3,4,20,3,1E,0 >YJ 
3230 DATA CC,00,88,3,3,0,44,0,00,88 >BY 
3240 DATA 00,88,44,3,3,0,00,0,00,88 >BZ 
3250 DATA 0,0,00,3,3,88,0,0,00,0 >YR 
3260 DATA 00,88,88,0,00,3,7,88,44,0 )BG 
3270 DATA CC,88,00,3,3,88,3,FF,0,3 >AA 
3280 DATA FF,0,3,FF,0,3,FF,0,3,FF >ZU 
3290 DATA 0,3,FF,0,3,FF,0,3,FF,0 >YT 
3300 DATA 3,FF,0,3,FF,0,3,FF,0,3 >YM 
3310 DATA FF,0,3,FF,0,3,FF,0,3,FF >ZH 
3320 DATA 0,3,FF,0,3,FF,0,3,FF,0 >YL 
3330 DATA 3,FF,0,3,FF,0,3,FF,0,3 >YQ 
3340 DATA FF,0,3,FF,0,3,FF,0,3,FF >ZQ 
3350 DATA 0,3,FF,0,3,13,0,0 >TY 



/ 





The last brick 



100 GOSUB 24100 >UC 

200 SYMBOL AFTER 200 >PL 

300 DIH br(12),nd(12) >NP 

400 rec=0 >FG 

500 KEY 139,’ink 0,0:ink l,14:borde >LB 

r 0:paper O:*ode 2:pen 1:1ist*+CHR* 

(13) 

600 DEF INT a-z:DEFREAL c >TK 


700 ra$=CHR$(235)+CHR4(235)*CHR$(23 >BY 

5)+CHRi(23S):MODE 1 :a2=2:b=3:c=2:d 

=3:e=2:t=2:g=3:h=2:dl=2 

800 SYMBOL 250,189,0,189,189,189,18 >HN 

9,0,189 

900 SYMBOL 200,36,66,165,24,24,165, >FZ 

66.36 

1000 SYMBOL 201,0,56,84,146,186,146 >GH 
,84,56 

1100 SYMBOL 202,36,102,231,24,24,23 >JB 

1.102.36 

1200 SYMBOL 203,16,108,68,146,68,10 >GZ 
8,16,0 

1300 SYMBOL 204,130,56,84,108,84,56 >GT 
,130,0 

1400 SYMBOL 205,60,90,219,165,165,2 >JQ 

19.90.60 

1500 SYMBOL 206,60,66,161,153,153.1 >JH 

33.66.60 

1600 SYMBOL 207,153,60,90,247,239,9 >JR 
0,60,153 

1700 SYMBOL 208,60,24,165,203,211.1 >JZ 

65.24.60 

1800 SYMBOL 210,118,187,221,238,119 >NM 
,187,221,110 

1900 SYMBOL 211,110,221,187,119,238 >NP 
,221,187,118 

2000 SYMBOL 212,102,189,219,102,102 >NA 
,219,189,102 

2100 SYMBOL 213,102,255,102,24,102, >KX 


Au risque d'ett étonner plus 
d’un, le programme suivant est 
un casse-briques. Bien sûr, ce 
n'estpas Arkanoïd ou tout autre 
programme débordant de 
graphismes somptueux, mais 
enfin, je pense qu'il devrait vous 
amuser. 

Le mode d'emploi est dans le logiciel. 
255,102,24 

2200 SYMBOL 214,255,129,189,165,165 >NU 
,189,129,265 

2300 SYMBOL 215,189,189,129,60,60,1 >LH 

29.189.189 

2400 SYMBOL 216,153,195,231,126,126 >NQ 
,231,195,153 

2500 SYMBOL 217,219,231,255,36,66,2 >LT 

55.126.189 

2600 SYMBOL 218,255,201,181,179,205 >NB 
,173,147,255 

2700 SYMBOL 219,189,126,195,219,219 >NE 
,195,126,189 

2800 SYMBOL 220,231,189.219,118,110 >NU 
,219,189,231 

2900 SYMBOL 230,199,199,203.211,227 >NA 
,211,203,199 

3000 SYMBOL 231,63,127,200.212,226, >HG 
209,203,199 

3100 SYMBOL 232,255,255.16,40,68,13 >KF 

1.255.255 

3200 SYMBOL 233,252,254,19,43.71,13 >KC 
9,211,227 

3300 SYMBOL 234,227,227,211,203,199 >NG 
,203,211,227 

3400 SYMBOL 235,0,0,255,136,85,213, >HR 

255.255 

3500 ’ >YA 

3600 tga=8:tdr=l:G0T0 18600:des=l >BU 

3700 GOSUB 24100 >DD 

3800 «INDOU 11,9,9,6,15:a$=* JOUER" >CE 

3900 PEN 11,1:PRINT 11,* " >MK 

;"0 123 45 6"; 

4000 d*=" FRANCAlS":e*=" ENGLISH* : f >RX 
»=" DEUTSCH" 

4100 gt=" CURSEUR":hJ=" JOYSTICK":i >NG 

»=" DEHO' 

4200 PAPER 0 >ZE 


4300 LOCATE 16,2 :PEN 3:PRINT "M E >EC 
N U" 

4400 LOCATE 16,3 ;PEN 1:PRINT "==== >FT 

- S= W 

4500 LOCATE 1Ô,6:PEN a2:PRINT a» >ZG 
4600 LOCATE 10,8:PEN d:PR INT d» >YM 
4700 LOCATE 10,9:PEN e:PRINT e»:L0C >D« 
ATE 10,10 :PEN f:PR INT f» 

4800 LOCATE 10,12: PEN g: PR INT g»: LO >VA 
CATE 10, 13:PEN h: PR INT h* :LOCATE 10 
,15 :PEN dl: PR 1 NT i$ 

4900 LOCATE 9,23:PEN 3:PRINT "VOTRE >PK 
CHOIX (0-6) svp LOCATE 10,25:PE 
N 2:PRINT CHR*(164) + " copyright CPC 
1987" 

5000 cl$=INKEY» >FC 

5100 1F cl»="0" THEN a2=3:LÛCATE 10 >WC 
,6:PEN a2: PR I NT a*:FQR pau=l TO 100 
Û:NEXT:a2=2:GÛTÛ 6000 
5200 IF clt="l" THEN e=2:f=2 :d=3: LO )RT 

CATE 1Û,8:PEN d:PR INT d«:GOTÜ 18600 
5300 IF cl*=*2" THEN d=2:f=2:e=3:LO )RT 

CATE 10,9:PEN e:PR INT e»:GOTO 19000 
5400 IF clt="3" THEN d=2:e=2:f=3 : LO >TK 
CATE 10,10 :PEN t:PR INT f»:GÜTO 1940 

0 

5500 IF cl»="4" THEN h=2:e=3: LOCATE >MA 
10,12: PEN g:PR INT g»:GOTO 19700 
5600 IF cl$=*5" THEN g=2:h=3:LOCATE >MP 
10,13:PEN h: PR I NT h* : GOTO 20000 
5700 IF cl *="6" THEN dl=3:L0CATE 10 >JC 
, 15 :PEN d1 : PR 1 NT i»:GÛTÛ 20300 


5800 GOTO 5000 )MF 

5900 END >ZC 

6000 '»««•««*«»»»*»»» appel DR )XJ 
APEAUX 

6100 GOSUB 21000 >CG 

6200 GOSUB 26000 >DC 

6300 CALL ABB18 >UF 

6400 CLS >ZK 

6500 GOSUB 24100 >DE 

6600 GOSUB 23800 . >EB 

6700 DATA 129,234,129,234,133,234,1 >RA 
24,338,158,260,197,364,177,338,173, 
312,155,382,359,390 

6800 MODE 1 >PK 

6900 «INDOU 13,8,33,5,20 >RL 

7000 br=Û >DG 

7100 1=1 >VH 

7200 vi=3 ■ >FC 

7300 w=20:sc=10 >AK 

7400 PEN 1:LOCATE 4,1:PR INT sc*;:PE >BJ 


N 2:PRINT sc:LOCATE 17.1:PEN 1:PRIN 
T reci;:PEN 2:PRINT rec:LOCATE 29,1 
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: PEU 1:PRI NT vil; 

7500 GOSUB 18300 
7600 GOSUB 11000 
7700 GOSUB 12600 

7600 ’HHiHIilIlHIHIIIIKIHIII 
«««§« 

7900 '«§•*§ BOUCLE PRINCIPALE **« 
!«»!« 

8000 ’iiifffiiiiifiitiviiiviiiiiiii 
««««« 


8100 x=INT(RND*12)+10:y=20:sx=l:sy= 
-1 

8200 » 

8300 IF x<=8 THEN sx=l:SOUND 1,100, 

5.14.1 

8400 IF x>=33 THEN sx=-l:SOUND 1,10 
0,5,14,1 

8500 IF y<6 THEN sy=l:SQUND 1,50,5, 

14.1 

8600 x=x*sx:y=y+sy 
8700 IF y>24 THEN LOCATE x-sx,y-sy: 
PRINT • ":GOSUB 10600 
8800 a=TEST((i-2)*16+16,380-((y-2)i 
16)-8) 

8900 b=TEST((i-2)*16+17,380-((y-2)t 
16)-20) 

9000 PEN 2:LOCATE x,y:PRlNT CHRK20 
Û*ba):LOCATE x-sx,y-sy:PRINT • ■ 
9100 IF a=3 THEN SOUND 1,284,4,14,1 
» 1,1:sc=sc*2:br=br+l:sx=sx:sy=-sy 
9200 IF a=2 THEN SOUND 1,1000,4,14, 
l:sc=sc+l:br=br+l:sx=sx:sy=-sy 
9300 IF b=l OR a=i THEN SOUND 1,200 
,5,15,l:sc=sc+l:z=INT(RND*4)*l:lF z 
=2 OR z=3 THEN x=x*l:LOCATE x-l,y:P 
RINT 1 B :sx=-sx:sy=-sy ELSE sx=sx:s 


y=-gy 

9500 LOCATE 10,1:PRINT sc 

9600 IF (sc HOD 200)=1 OR (sc HOD 2 

00)=0 THEN sc=sc+2:IF vi>=6 THEN GO 


TO 8300 ELSE vi=viU:GOSUB 18400:G0 
TO 8300 


9700 9 *if »«§§*«**« coipteur bri 
que iiffixttiixiiittt 

9800 IF br=br(l) THEN 1=1+1:br=0:IF 
1>10 THEN GOTO 60000 ELSE GOSUB 24 
100:CLS 13:GOTO 7700 


9900 IF INKEY(tga)=0 THEN w=w-2:L0C 
ATE 4,24:PRINT 1 • 


1 




IF INKEY(tdr)=0 THEN w=w+2:lF 


w- 2<7 THEN 10200 ELSE LOCATE w-2,2 
4:PRI NT • ■ 

10100 IF 1NKEY(71)=32 THEN l=l+l:br 


>EA 

>DB 

>DK 

>TH 

>YJ 

>YA 

>GD 

>YC 

>HH 

>JP 

>FD 

>PN 

>AL 

>GP 

>HA 

>RA 

>TN 

>PF 

>IV 


>UD 

>AU 


>YJ 

>RH 

>AR 

>FL 

>UQ 


=0:GOSUB 24100:GOSUB 12200:GOTO 740 
0 

10200 IF w<8 THEN w=8 >NU 

10300 IF u>30 THEN w=30 >QP 

10400 PEN 1:LOCATE w,24:PRINT rai >AU 

10500 GOTO 8300 >UF 

10600 FOR q=200 TO 270 STEP 6:SOUND >UD 

l,q,5,4:NEXT:vi=vi-i:lF vi>0 THEN 
GOSUB 18300:GOTO 8100 
10700 CLS:PEN 2:L0CATE 15,10:PRINT >IP 
"GAME OVER":FOR 1=1 TO 2500:NEXT:C 
LS 

10800 IF sc>rec THEN rec=sc 
10900 UHILE INKEYIO BB :UEND: INPUT B 
Une autre partie ",ol:IF ol="o" THE 
N RESTORE:CLS:GOTO 3700 ELSE END 

11000 'ifii**«ii***«f»*«****»i»«*i« 
IHHIIIIIIIHIIIHiHHIII! 


>VM 

>YQ 


>CH 


11100 THE LAS >CJ 

T BRICK iifxvitixfiivxifix 

11200 9 tiivttvitixiitflittxxftiltü >CK 

««liiftitiilllffltillf««««««« 

11300 UINDOU 14,1,6,5,25 >RX 

11400 PEN I4,3:PRINT i4 f B T >TY 
HE LA 

ST BR 

I C K" 

11500 HINDOU #5,37,37,5,22:PEN #5,3 >EK 
:PRINT #5, B LEVEL B ;:PEN #5,2 
:PRINT #5,1 

11600 » >DD 

11700 UINDOU #i,7,7,5,25:PEN #l,l:P >BC 

RINT #1,STRING#(20,230) 

11800 PEN 1:LOCATE 7,4:PRINT CHRK2 >ED 

31) 

11900 LOCATE 8,4:PRINT STRINGI(26,2 >FR 

32) 

12000 LOCATE 34,4:PRINT CHRK233) ’ >AZ 


12100 HINDOU #2,34,34,5,25:PRINT #2 >ED 
,STRING!(20,234):RETURN 
12200 » >DA 

12300 » >DB 

12400 CLS:RETURN >HV 

12500 ’iiiiiiiHiiiiHiiKiiiiiiHi >DD 

iXiiiXfiiVifXXXiiVftffillf1 

12600 Uxfxffixxixx» ECRANS >DE 

«««lilfifXfiilXft 

12700 GOSUB 24100 >LT 

12800 HINDOU #3,8,33,5,20 >TA 

12900 PEN #5,3:PRINT #5," LEVE >CH 
L B ; :PEN #5,2:PRINT #5,1 
13000 iu=INT(RND*10)♦1:LOCATE #3,1, >YR 


i:FOR iil=l TO nd(l) 

13100 READ c >UH 

13200 1F c=0 THEN PRINT #3," B ; >UH 
13300 IF c=l THEN PEN #3,3:PRINT #3 >QP 
,CHRt(210+.u); 

13400 IF c=2 THEN PEN #3,2:PRINT #3 >QQ 
,CHR#(210+iu); 

13500 NEIT >RH 

13600 RETURN >HC 

13700 » >DG 

13800 1 >DH 

13900 9 iiiviiixiiiiiiix level 1 ** >DJ 

«iHiiiiimiiii 

14000 DATA 2,1,2,,,,,,,,,,,,,,,,,,, )LP 

>> m >2,1,2,1,2,1,,,,,,,,,,,,,,,,,,, 

, , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 2 , 2 ,,,,,,,,,,,,,,,, 

»>2,1,2,1,2,1,1,1,1,1,1,1,,,,,,,,,, 
t » » *0 . 

14100 DATA 2,1,2,1,2,2,2,2,2,2,2,2, >JB 

2»2,2,,,,,,,,,,,,2,1,2,1,1,1,1,1,1, 

M»1»M»M>Mmmm»m2,1,2,2,2 

,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,,, 

»iO 

14200 DATA 2,1,1,1,1,1,1,1,1,1,1,1, >AR 
1,1,1,1,1,1,1,1,1,1,1,1,,,2,2,2,2,2 
>2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2,2,2 

14300 , ««xi«fi«»«««fti«« level 2 « >DD 

HIIIIIIHHHII 


1U00 DATA 2,2,2,1,1,1,2,2,2,1,1,1, >DT 

2,2,2,1,1,1,2,2,2,1,1,1,2,2,1,1,1,2 
,2,2,1,1,1,2,2,2,1,1,1,2,2,2,1,1,1, 

2,2,2,0,0 

14500 DATA 2,2,2,1,1,1,2,2,2,1,1,1, >KX 
2 , 2 , 2 , 1 , 1 , 1 , 2 , 2 , 2 ,,, „ 0 , 1 , 1 , 1 , 2 , 2,2 
, 1 , 1 , 1 , 2 , 2 , 2 , 1 , 1 , 1 , 2 , 2 , 2 ,,,,,,, ,0 
14600 DATA 2,2,2,1,1,1,2,2,2,1,1,1, >QH 
2»2,2,,,,,, 

» » 9 » »û, 1,1,1,2,2,2,1,1,1 
>2,2,2,»,>»>>»,>>>>>0 
14700 DATA 2,2,2,1,1,1,2,2,2,,,,,,, >UR 
>>>>»»»»>>0>lfl,l,2,2,2,,,,,,,,,,,, 
>>>>>>> >^>2,2,2,,,,,,,,,,,,,,,,,,,, 

> > >0 

14800 ’iixxifxftfiixttfti* level 3 «• >DJ 

«HillHIlitlIH 


14900 DATA 2,2,2,,,,,,,,,,,, 

i » > > » » > 

> > > 2 > 2 , 1 , 1 , 1 , 2 , 2 , 2 ,,,,,,,,,, » > > > > >2 
> 2 » 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 ,,,,,,,,, 


,2,2,2,1,1,1,1,1 


15000 DATA 2,2,2,1,1,1,1,1,1,2,2,2, 

>> >2,2,2,1,1,1,1,1,1,2,2,1,1,1,2,2, 

2,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,2,2 
, 2 , 1 , 1 , 2 , 2 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2,,,,2 


>QZ 


>UR 
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,2,2,1,1,1,1,1,1,2,2 

15100 DATA 1,1,1,1,1,1,2,2,2,,,,,,, >QR 

» » I 2,2,2,1,1,1,1,1,1,1,1,2,2,2 

» » » » * 

MtmtMM 2,2| 2, 1,1, 2, 2 f 2 t ÿffÿtfÿy 

15200 '««««f *§«**«*»* level 4 ** >DD 

HIIIIIHIIIHII 

15300 DATA 1,2,,,1,2,,,1,2,,,1,2,,, >PC 
1,2, », 1,2,,, 1,2,,, 1,2,,, 1,2,,, 1,2,, 

,1,2,,,1,2,,,1,2,,,1,2,,,1,2,,,1,2, 

,,1,2,,,1,2,,,1,2,,,,,,,1,2,,,1,2,, 

• 1>2» *,1*2,,,1,2,,,,,,2,1,2*,,1,2,, 

» 1,2,*,1,2,,,1,2,,,,,,,,,,,1,2,,, 1, 

2,,,1,2,,,1,2,,,,,,,,,,0 

15400 DATA 1,2,,,1,2,,,1,2,,,1,2,,, >CP 

,,i»»2,1,1,1,2,|,1,2,,,1,2,,,1,2,,, 
,,,,,,*,,,*,1,2,,,1,2,,,1,2,,,,,,,, 

,1,2,,,1,2,,,,,,,,,2,2,2, 

1 , 1 , 1 , 1 , 2 , 2 , 2,1 , 2 ,,, 1 , 2 ,,,,,,,,,,,, 

,,,,,,,,,,,1,2,,,,,,,,,,,,,,,,,,,,, 

,, 1 , 2 ,,,,,,,,,, 2 , 2 , 2 , 2 , 2 , 1 , 1 , 1 , 1 , 1 , 

2,2,2,2,2 

15500 ’ioiiiiiitiittit* level 5 «» >DG 

15600 DATA 0,,,2,2,2,2,2,2,2,,,,,,2 >8R 
,2,2,2,2,2,2,2,2,2,2,„1,1,1,1,1,1, 

1,,,,,,1,1,1,1,1,1,1,1,1,1,1,1,,2,2 
,2,2,2,2,2,,, 1,,, 2,2,2,2,2,2,2,2,2, 

2.2.2.2.1.1.1.1.1.1.1.. ....1.1.1.1, 

,,,,,,, 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2 ,,, 1 ,,, 2 , 2 , 

2.2.. .......2.2.2.1.1.1.1.1......1, 

1,1,1 

15700 1 DATA 0,,,,,,,,,,,,,,,,,,,,, )DJ 
,,,,, 2,2,2,2,,,2,2,2,2,,,2,2,2,2,,2 
, ,2,,, 2,2,2, * 2,,, 2, i, 2,,, 2,, 12,,, 2, 

,2,,2,,2,2,2,2,2,2,2,2, 2,,,2,,,2,,, 

2,,,2, ,2,,2,,2,,,,2,2,2, 2,,,, 2,2,2, 

» »,2,2,2,2,,2,,2,,2,,,,2,2,2,2,2,2, 

,2,2,2,2,2,,2,,,2,,2,,2, ,2,,,,2,2,, 

,,2,,2,,,, 

15000 DATA 0,,,,,,,,,1,1,1,2,2,2,2, >HB 

2,2,2,2,,,,,,,,,, ,2,2,2,1,1,1 
,,,,,, 1,1,1,1,,,,,,,,,,,,1,1,1,2,2, 
„1,,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2,2,2,2,1 

» ♦ » 9 » » 1» 1» 1» 1» 1» 1» 1» 1» 1» 

1,1,1,1,1,1,1,1,1,1,1 

15900 1 level 6 h >EA 

«ItiHHHHHII 

16000 DATA 0,,,,,,,,,,,,,,,,,,,,,,, /BB 

» », 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,,2, 

1,1,1,1,1,1,1,1,1,1,2,,1,1,1,1,1,2, 

2 » 1 » 2 , 2 , 2 ,,, 2 , 1 , 2 , 2 , 2 ,,, 2 , 2 , 2 , 1 , 2 ,, 


,2,2,2,1,2,2,1,2,1 ,»» ,2,1,2,1,,,,,1 

, 2 , 1 , 2 ,,,, 1 , 2 , 1 , 2 , 2 , 1 , 2 ,,,,, 2 , 1 , 2 ,, 

» » 1 1 »2f 1 

16100 DATA 2,,,,,2,1,2,2,1,,,,,,2,1/>ZA 

m»»»m#»1»2,,,,,»1,2,2,,,,,,,2, , 

i2*«ttt**2,2,l,«*ti*2f 


» » » » , » » *•»,,,» » I 


■»»»>»»«■»»»»>»»» 


1 , 2 , 2 , 1 , 2 ,,,,, 2,1 


IHHIH 


, » »«-» 9 » » »f 

» 1 , 2 »,,,, 2 , 1 , 2 , 2 , 1 , 2,1 » » » , 2 , 1 , 2 ,,,, 

, » f 2,1,2,,,,1,2,1, 2,2,.1,2,2,2„, 2,1 
#2,2,,,,, 2,2,1, 2, » , 2,2,2,1,2,2,1,1, 

1,1,1,,2 ' 

16200 DATA 1,1,1,1,,,1,1,1,1,2,,1,1 >ÏD 
,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2,2,2,2,2,2,2,2,2,2,2,2 

16300 ’«i«ftii«i«i*ii««ft level 7 h >DF 

16400 DATA 0,,,,,,,,,,,,,,,1,1,,,,, )DB 

• » #i» » # # « # » # ,2,2,2,2,2,2,2,2,2,2,,, 

9999999999999 2,2,2,2,2,2,2,2,2,2,2, 

2» » » » 9 t » I » f t f 9 9 2,2,2,2,2,2,2,2,2,2, 

2,2,2,2,,2,2,2,2,2,2,2,2, 

2 » 2 , 2 , 2 , 2 , 2 , 2 , 2 ,,,,,,,,,,, 1 , 1 , 1 , 1,1 

,1,1,1,1,1,1,1,1,1,1,1,,,,,,,,,,,1, 

1,1, 9,1,1 

16500 DATA 1,1,1,1,,,!, 1,1,„„„„ >BH 

,,1,1,1,,,1,1,1,1,1,1,,,1,1,1,,,,,, 

,,,,, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 

1 ,,,,,,,,,,, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 1 , 1,1 

,1,1,1,1,,,,,,1,2,1,2,,1,1,1,1,1,1, 

1,2,2,1,1,1,1,1,1,1,,2,1,2,1,2,1,2, 

1,,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1, 

,1,2,1,2 

16600 DATA 1,2,1,2,,,,,,,,,,,,,,,,, )HE 
,,2,1,2,1 

16700 »level 8 « >DK 

16800 DATA 0,,,,2,1,2,1,2,1,2,1,2,1 >BN 
, 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 ,,,,,,,, 1 , 2 , 1 , 2 , 1,2 
, 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2,,,,,,2 
, 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 ,,, 2 , 1 , 2 , 1 , 2 , 1 , 2 , 

1 , 2 , 1 ,,,, 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 ,,,,,,, 2 , 

1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 ,, 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 ,,, 
,, 1 , 1 ,,,,, 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1 , 2 , 1,2 

91 .. ., ,2 

16900 DATA 2,2,2,2,2,,,,,2,1,2,1,2, >IK 

1.2.1.2.1.. ...1.1.1.1.1.1.1.1.1.1., 
,,,2,1,2,1,2,1,,,,,2,2,2,2,2,2,2,2, 

2,2,2,2,2,2,,,,, 2,1,,,,,,,,,,,,,,,, 

,,,,,,,,,,,1,1,2,2,2,2,1,1,,,,,,,,, 

,,1,1,2, 2 , 2 , 2 ,1,1,,,,,,,,,,,,,,,,,, 
,,,,,,,,,,,,,,, 2 , 2 , 2 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 

2,2,2,2 

17000 DATA 0,,,,,0 >LA 


17100 ’iiiififtiifOftifttt level 9 ** >DE 

1HI1HHH1HI 

17200 DATA 0,,,,,,,,,,,,1,1,,,,,,,, >CK 

, 9 ,,,,,,, 1 , 1 , 1 ,!,,,,, 99 ,, 1 # 

,,,, 1 , 2 , 1 ,,,,,, 1 , 1 , 2 , 2 , 1 , 1 ,,,,,,, 1 , 

2,1,,,,,1,,,,,,1,1,2,1,1,2,1,1,,,,, 
,,!,,,,,,,,,,,1,1,2,1,1,1,1,2,1,1,, 
,,,,,,,,,,,,,,2,1,2,1,1,2,2,1,1,2,1 
, 2 ,,,,,,,,,,,, 1 ,,,, 1 , 1 , 2 , 1 , 1 , 1 , 1 , 2 , 

1,1,,,,,! 

17300 DATA 0,,,,,,2,1,1,,,,1,1,2,1, >DD 

1,2,1,1,,,,,1,1,2,,,,,1,1,2,1,1,,,, 

1,1,2,2,1,1,,,,,1,1,2,1,1,,,1,2,1,1 
,2,1,1,,,,1,1,1,!,,,,,1,1,2,1,1,2,1 
,,,1,2,1,1,2,,,,,,1,1,,,,,,,2,1,1,2 
,1»»»»»1,2,1,»,2,,,,,,,,,2,,,,1,2,1 
,,, 1 , 1 , 1 , 1 , 1 , 1 ,,,,,,, 1,9 

,,,,,,, ,2 

17400 DATA 0,,1,1,2,2,2,2,1,1,,,,2, >HU 

,,,,,,,,,,,,,1,1,1,!,1,1,1,1,1,1 
17500 '«ifitHittiitfMiv level 10 « >DJ 

««««««ftiiitfiti» 

17600 DATA 1,1,1,1,1,1,1,1,1,1,1,1, >ZN 

1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2 
, 1,1,2,2,2,2,1,1,2,2,2,2,1,2,1,2,1, 

1,2,2,2,1,2,1,1,2,1,1,2,1,1,2,1,1,2 
,1,1,2,1,2,1,2,1,2,2,2,2,2,2,2,2,2, 

1,1,2,1,1,2,1,1,2,1,1,2,1,2,1,2,1,2 
,1,1,1,2,2,2,2,1,1,1,2,2,2,1,1,1,2, 

2,2,2,1 

17700 DATA 2,1,2,1,2,1,l,1,2,2,2,2, >CF 

2,2 

17800 DATA 1,2,2,2,2,2,1,2,1,1,2,1, >TX 

2,1,2,1,2,1,1,1,2,2,1,1,1,2,1,2,1,1 
,1,2 

17900 DATA 1,2,1,1,2,1,2,1,2,1,2,1, >LH 

1,1,2,2,1,1,1,2,1,2,1,1,1,2,1,2,1,1 
,2,1,2,2,2,1,2,2,2,2,2,2,2,2.2,2,1, 

2,1,1,1,2,1,2,1,1,2,1,1,2,1,1,1,2,2 
,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2 
,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2 

18000 » DATA 0,2,,,2,,2,,2,,2,,,,2, >DE 
2 » » », 2 ,, 2 ,,,, 2 ,, 2 ,,, 2 ,, 2 , 2 , 2 ,, 2 , 2,2 
,2,2,2,2,2,2,2,,2,,,,2,,2,,,2,,,2,, 

2 2 2 

2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 
,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
18100 DATA 1,1,1,1,1,1,1,1,1,1,1,1, >CW 

1,1,1,1,1,1,1,1,1,1,1,1,1,1 
18200 DATA 0,,,,,,,,,,,,,,,,,,,,,,, >EQ 
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ffffffff«ffffffffffffffff«ffffffff 


,,, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2,2 
, 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

2 

18300 ba=INT(RND«9) >HC 

18400 PEN 2:LOCATE 35,i:PRINT ■ >VU 

■îLOCATE 35,1:F0R 13=1 TO vi:PRlN 
T CHR#(200+ba);:NEXT 
18500 RETURN >MG 

18600 » ffffffffffffffffff français «««*« >EA 

iiftiiftiii 

18700 sc#="SCQRE: B : rec#="RECORD: B >HG 
:vi#=" VIE: B :des=l:par#= B PAR":et#= 

« ET" 

18800 tou#=" APPUYER SUR UNE TOUCHE >GA 


>VH 

english ««««« >DF 


18900 GOTO 3800 
19000 ’ ffffffffffffffffff 

flftfiifi» 

19100 sc#= B SCÛRE: B : rec#= B H!GH : B >HM 
:vi#="LIFE: , :des=2:par#= B BY":et#= 

B AND" 


19200 tou#= B PRESS A KEY* >XG 
19300 GOTO 3800 >VC 
19400 '«ffffffffffftff deutsch ffffffffffff >DK 
««««« 


19500 sc#="PUNKT: B : rec#="REKORD: B >RH 
:vi#="LEBEN: B :des=3:par#= B DURCH B :e 
t#= B UND" 

19510 tou#= B DRUCKEN AUF DIE TASTE! >FG 


19600 GOTO 3800 >VF 

19700 • »§*«»**!»« curseur iiiimii >EC 

if«ifi 

19800 tga=8:tdr=l >MY 

19900 GOTO 3800 >VJ 

20000 'ffffffffffffi joystick «ffffffff >CH 

«fifff 

20100 tga=74:tdr=75 >NH 

20200 GOTO 3800 >UD 

20300 'ffffffffififfffiff DEHO f >DA 

iifffiffffiffffffiiiff 

20400 1=1 >BB 

20500 GOSUB 23800:MODE 1 îLOCATE 14, >HE 
2:PEN 2:PRINT B «f D E H 0 «f B 
20600 GOSUB IIOOOîUINDOU #5,37,37,5 >UU 
,22:FOR Nl=l TO 10 

20650 IF INKEY#<> BB THEN MODE lsGOT >GP 
0 3800 

20700 GOSUB 12600 >LU 

20800 FOR N2=l TO 2500:NEXTiCLS #3 >AW 
20900 L=LU:NEXT:MODE 1:GOTO 3800 >BM 
21000 'ffffffff«f««ff«« DRAPEAUX >CJ 


21100 ON des GOTO 21200,21800,23200 >AD 
21200 'ff«ffffffff Drapeux frança >DA 

lS «ffffffffffffff 

21300 MODE 1:INK 0,0:B0RDER 0:INK 1 >UC 
,2:INK 2,26:INK 3,6 

21400 ÛR1GIN 0,0,0,213,0,399:CLG 1 >ZC 
21500 ÛRIG1N 0,0,213,426,0,400:CLG >BL 
2 

21600 ÛR1GIN 0,0,426,640,0,400:CLG >BT 
3 

21700 RETURN >MC 

21800 '««ffffffff Drapeau anglais >DG 

ffffffffffffftfffff 

21900 m 0,0:BORDER 0:INK 1,1:INK >AV 
2,6:INK 3,26:CALL &BC06,&C0:GOSUB 2 
6000:CALL LBB18 : CALL ABC06,MO:GOTO 
6400 

23200 'fffffffffffff Drapeux Alleaa >DC 
nd ffffffffffffff 

23300 MODE 1:INK 0,1:B0RDER 1:INK 1 >UD 
,0:INK 2,6:INK 3,15 

23400 ORIGIN 0,0,0,640,266,400:CLG >BT 
1 

23500 ORIGIN 0,0,0,640,133,266:CLG >BY 

2 

23600 ORIGIN 0,0,0,640,0,133:CLG 3 >ZY 


23700 RETURN >ME 

23800 ' >DJ 


23900 RESTORE 6700:FÛR 11=1 TO 10:R >BU 
EAD br(il),nd(il):NEn 
24000 RETURN >U 

24100 clh! = lNT(RND«14)U >TG 


24200 IF clh!<l OR clh!>14 THEN 336 >AR 
0 

24300 IF clh!=1 THEN clnl=14:cin2=2 >LK 
6:cin3=6 

24400 IF cl h!=2 THEN clnl=2:cin2=26 >KU 
:cin3=6 

24500 IF clh!=3 THEN cinl=3:cin2=26 >LG 
:cin3=10 

24600 IF clh!=4 THEN cinl=6:cin2=26 >LR 
:cin3=14 

24700 IF cl h!=5 THEN clnl=6:cln2=26 >KA 
:cin3=2 

24800 IF cl h!=6 THEN cinl=9:cin2=26 >KK 
:cin3=6 

24900 IF cl h!=7 THEN cinl=25:cln2=l >LT 
0:cin3=6 

25000 IF clh!=8 THEN cinl=4:cin2=26 >LR 
:cin3=17 

25100 IF cl h!=9 THEN cinl=10:cin2=2 >LH 
6:cin3=l 


25200 IF clh!=10 THEN cinl=10:cln2= 
26:cm3=3 

25300 IF clh!=11 THEN cini=18:cin2= 
26:cin3=4 

25400 IF clh!=12 THEN cinl=18:cin2= 
9:cin3=26 

25500 IF clh!=13 THEN cinl=i:cin2=2 
6:cin3=i4 

25600 1F clh!=14 THEN cinl=6:cin2=2 
6:cin3=3 

25700 IF cl h!=15 THEN cinl=12:cln2= 
26:cin3=6 

25800 PAPER 0:INK 0,0:BÛRDER 0:INK 
l,clnl:INK 2,cin2:INK 3,cln3 
25900 RETURN 

26000 U INDOU #2,14,27,9,17 
26100 ORIGIN 0,0,200,416,120,264:CL 
G 3 

26200 PAPER #2,0:CLS #2:PRINT #2:PR 
INT #2," THE":PRINT #2:PRINT #2:PR 
INT #2, B LAST B :PRINT #2:PRINT #2 
:PRINT #2," BRICK" 

26300 PLOT 208,264,0:DRAU 200,264:D 
RAU 200,120:DRAW 422,120:DRAU 422,1 
28 

26400 ORIGIN 0,0,376,560,216,342:CL 
G 1 

26500 U INDOU #2,25,36,4,11:CLS «2 
26600 PRINT «2:PEN #2,3:PRINT >2,pa 
ri:PEN #2,1:PRINT #2, B ALACAHAN*: 
PRINT #2," NIHAT B :PEN #2,3:PRI 
NT #2,et#:PEN #2,1:PRINT #2," ATA 
LAY":PRINT #2," SAIT" 

26700 PLOT 384,342,0:DRAU 376,342:0 
RAU 376,216:DRAU 566,216:DRAU 566,2 
24 

26800 ORIGIN 0,0,42,422,10,54:CLG 2 
26900 UINDOU #2,4,27,22,24:PAPER #2 
,0:CLS#2 

27000 PRINT #2:PRINT #2,tou# 

27100 PLOT 48,54,0:DRAU 40,54:DRAU 
40,10:DRAU 422,10:DRAU 422,16 
27200 PAPER 0 
27300 RETURN 


60000 sc=sc«vi:CLS #3:PRINT #3,3:PR 
INT #3," CONGRATUUTIONS":PEN #3, 
IîPRINT #3, B you hâve uon B 
60010 PRINT #3:PRINT #3, B vous av 
ez gagne " 

60020 PRINT #3:PRINT #3," Sie habe 


n gewonnen" 

60030 1=1:RESTORE 13900 :FOR nx=l 
0 2000:NEXT:CLS #3:GOTO 7700A 


>U 

>MD 

>ML 

>MA 

>LP 

>MH 

>JG 

>MJ 

>TM 

>DL 

>MP 


>n 


>DF 

>ZB 

>PU 


>ux 


>AQ 

>KA 

>UX 

>HU 

>FJ 

>ME 

>MC 


>TR 

>UV 

>GG 




UNE AUTRE FAÇON DE CONCEVOIR 

L'EDUCATIF 


RODY 
ET MASTICO 

Logiciel d'éveil de 4 o 7 ans 

Le joueur qui incorne le personnage de 
Rody, doit partir à la recherche de l'étoile 
multicolore qui a disparu. 

Cette quête est traitée sous forme d'aven¬ 
ture, au cours de laquelle Rody, aidé par 
Mastico, le robot qui parle, devra décou¬ 
vrir des indices, en répondant à des ques¬ 
tions. Ces dernières mobilisent le sens de 
l'observation et de la réflexion chez l'en¬ 
fant. 

Réf. GEN5 010CPC 


A vous d'accoupler vos animaux, de vendre 
des hamsters, d'acheter de la nourriture, des 
cages, des magasins, de payer vos loyers et 
de faire face à toutes les dépenses... 

Deux, niveaux de difficulté. Sauvegarde possi¬ 
ble du jeu en cours. 

Disponible sur disquette 3" pour CPC 464, 
664 et 6128 
Réf. GEN5 007 CPC 


Au terme de ces efforts, le génie du langage 
apparaîtra... avec une surprise ! 

CE/CM de 7 à 11 ans 

Réf. GEN5 005 CPC 

6e/3e de 11 à 15 ans 

Réf. GEN5 006 CPC 


225 

- 

F 

225 

F 



199 F 


HAMSTERS EN FOLIE 

A partir de 10 ans 

Hamsters en Folie est une simulation économi¬ 
que et humoristique qui vous entraîne dans les 
mystères de la gestion d'élevage de hamsters. 


LES 4 SAISONS DE L'ECRIT 
Français, expression écrite, 
vocabulaire, lecture 

Donnez à vos enfants les moyens et l'envie 
d'écrire avec : 

- Un traitement de texte simplifié qui permet 
de rédiger, d'imprimer, de sauvegarder les textes 
de son choix. (Les commandes sont expliquées 
d'une manière très simple et conviviale). 

- Des modules de perfectionnement pour écrire 
sans fautes de ponctuation, améliorer son style, 
enrichir son vocabulaire, trouver et dévelop¬ 
per des idées. 


DESTINATION MATHS 

Afin de participer à la grande aventure 
spatiale du XXIème siècle, développez vos 
aptitudes mathématiques. L'essentiel des 
connaissances pour CE, CM, 6ème/5ème. 
Très gronde facilité d'emploi, réalisation 
exceptionnelle : décors futuristes, anima¬ 
tions, musique... 

CE1/CE2 

Réf. GEN5 001 CPC 

CM1/CM2 

Réf. GEN5 002 CPC 

6ème/5ème 

Réf. GEN5003 CPC 


199 F 


199 F 


199 F 






Disquette : 250 F 

COMPILATIONS CPC 


Vous recherchez les anciens numéros 
de CPC ? 

Vous souhaitez connaître le mode 
d'emploi de certains logiciels du 
téléchargement ? 

Alors voici les compilations de 1 à 4 
et de 5 à 8 de CPC. 


Pour tous les 

passionnés 

d'ondes courtes, 

codage, 

décodage, 

réception/ 

émission, 

interfaces. 


rim 

Disquette : 1 50 F 

► 

A 


Nombreuses 
routines : utilitaires 
de programmation, 
utilitaires 
graphiques, la 
gestion de fichiers, 
utilitaires 
imprimantes. 

DED 


Environnement 
matériel, commande 
de CPM3.0, le 
BDOS, le BIOS, 
fichiers binaires, 
éditeur de 
disquettes, 
désassembleur Z80, 
graphismes, 
caractère à la 
loupe. 
v 
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POUR LES MOINS DE 6 ANS 

Compte les nounours : divers nounours paradent sur l'écran. A toi de les 
compter. 

Le pique-nique avec nounours t guide nounours à travers le labyrinthe 
pour qu'il trouve son déjeuner manquant. 

Le train des couleurs : arrête le train devant la gare de la même couleur. 
Trouve la taupe : trouve la taupinière de la bonne taille en utilisant les 
mots "plus haut" et "plus "petit". 

Trouve la lettre : nounours aide à reconnaître et à épeler une lettre. 

Epèle : une version du très populaire pendu, les images sont des indices. 
Trouve très rapidement une forme : des formes colorées et des lettres 
apparaissent très rapidement sur l'écran, associe-les lorsqu'elles vont ensem¬ 
ble. 

Ecris une lettre : un éditeur de texte très simple permet aux enfants d'écrire 
au clavier. 


Réf. UBI 001 CPC 6128 : disk 
Réf. UBI 011 CPC 6128 : K7 


149 F 
129 F 


POUR LES 6 A 8 ANS 

Le train des nombres s calcule le nombre de passagers qui montent et 
descendent du train. 

Le labyrinthe des chiffres : sauve-toi du labyrinthe en trouvant le résultat 
des puzzles mathématiques des robots. 

La chenille : une version du pendu. Si ta réponse est bonne, tu aideras la 
chenille à manger la pomme. 

Au magasin t trouve les bons magasins pour faire les courses qu'il y a sur 
ta liste. 

L'emballage r range un ensemble de formes différentes dans une boîte rec¬ 
tangulaire. 

La chasse au trésor t trouve le trésor enfoui à l'aide de ses coordonnées et 
de messages tels que "tu brûles", et "tu t'éloignes", etc. 

Saut de nombres t un jeu avec les tables de multiplication. La grenouille 
doit sauter sur l'écran en utilisant les multiples corrects. 

Rebond : fais rebondir la balle sur un mur et sur des obstacles à un angle 
correct, de façon à toucher la cible. 


Réf. UBI 002 CPC : disk 
Réf. UBI 012 CPC: K7 


149 F 
129 F 
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POUR FAIRE RIMER 


Education et Récréation, 


MULTICOURS UN CHOIX DE 3 EDUCATIFS + I JEU 


MULTICOURS 6è 

Français : amélioration de la vitesse de lecture et de la compréhension du 
texte autour d’exercices variés et amusants. 

Sciences naturelles : une initiation à la démarche scientifique et aux lois 
biologiques du monde vivant abordée avec des mots simples. 

Géographie : découverte de la variété des milieux naturels et initiation à 
l’interprétation de cartes, graphiques et autres données climatiques. 

Jeu : un jeu divertissant à découvrir. 

Réf. :GU 557064 


MULTICOURS 4è 


245,00 F 


MULTICOURS 3è 


Français : test de performance de 
lecture suivie, qualité de compréhen¬ 
sion, appréciation du sens et du style 
grâce à une pédagogie active. 

Sciences naturelles : une initiation 
à la biologie humaine apprenant à 
observer et à interpréter les compor- 
tements de notre corps. 

Géographie : analyse de cartes et interprétation de diverses données statis¬ 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 
économique industrielle. 

Jeu : 1 jeu divertissant à découvrir. 

Réf. :GU 557124 
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Français : maîtrise de la lecture avec 
le support d’un texte riche et une va- 
riété d’exercices de compréhension 

d'analyse et de logique. ' 

de la Terre et de son histoire à tra- 
vers les grands phénomènes géolo- 

giques abordés grâce à des textes de connaissance, des animations... 
Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 
alliances : le mode d’emploi pour 1992. 

Jeu : 1 jeu divertissant à découvrir. Réf. .* GU 557104 


i:' 

L: . - ?'4&. . 


icuLtvr«j cé<. : va 

,, t M ^ > - ^ 

»•- -> 1 . « 


■ . ^V>ifeaâr.a&agS 


245,00 F 


245,00 F 


MULTICOURS 5è 


Français : perfectionnement de la 
lecture regroupant lecture et recher¬ 
che, anticipation mais aussi interpré¬ 
tation. 

Sciences naturelles : initiation à la 
biologie animale et végétale à travers 
l’alimentation, le système de respira¬ 
tion, le mode de reproduction ou de locomotion. 

Géographie : Voyage sur 2 continents proposant une découverte du quoti¬ 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique^^^^^^^ 

Jeu : 1 jeu divertissant à découvrir. Réf. : GU 557084 J 
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EDUCATIFS : 4 NOUVEAUTES INDISPENSABLES ! 


DECLIC LECTURE 

niveau CP 

Logiciel d'apprentissage 
de la lecture de base. 


Conçu pour éviter un échec dans 
l'apprentissage de la lecture au CP, il suit 
une progression prévue pour déclencher au 
bon moment le mécanisme de la lecture. 

UTILISATION : 

- En complément de la classe de CP. 

- Pour le travail avec les parents. 

- Dans les activités de soutien, d'aide et de 
rééducation. 

- Classes et établissements spécialisés. 
OBJECTIFS : 

1- Déclenchement de la synthèse, de la 
découverte du "Savoir-Lire", du mécanisme 
de la lecture. 

2- Etude systématique des lettres et des sons 
: lecture et effet sur l'orthographe d'usage. 

3- Construction et lecture de phrases : 
lecture syntaxique. 

4- Vérification de la compréhension du sens 
de petits textes. 


Réf. MC 80 CPC 


200 F 
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ANGLAIS - ALLEMAND - ITALIEN - ESPAGNOL PRIMAIRE 

niveau primaire et débutant 


Ce logiciel est destiné aux élèves des clas¬ 
ses primaires et début sixième et devrait 
leur permettre d'apprendre les premiers mots 
de vocabulaire et les premières notions de 
conjugaison. 

-DICTIONNAIRE (6 thèmes) 

Couleurs, nombres, animaux, vêtements, 
corps, divers. 

- PHRASES à compléter (6 thèmes). 

- TEXTES : Histoires à ranger dans l'ordre 
chronologique. • Possibilité d'en créer. 

- CONJUGAISON : Au présent simple de 7 verbes courants. 

Options Consultation et interrogation. Nombreux dessins et graphiques. 


Réf. anglais : MC 99 CPC 200 F Réf. italien 5 MC 96 CPC_200 F 

Réf. allem. : MC 97 CPC_200 F Réf. espag. : MC 95 CPC 200 F 


SCIENCES PRIMAIRES 

L'homme 
niveau primaire 

- Les sens 

- Les os 

- Les muscles 

- La digestion 

- Les dents 

- La respiration 

- La circulation 

Consultation et interrogation avec schémas et 
graphiques. 

Réf. MC 98 CPC_200 F 


ANGLAIS 43 

niveau 4è et 5è 

CONJUGAISON : 

- Visualisation de phrases décomposées (sujet, verbe, complément). 

- Rèqles d'application des temps avec exemples, inerroqation et ajout de phrases. 
VERBES IRREGULIERS : 

- Visualisation et recherche. 

- Interrogation. 

- Possibilité de modifier le fichier. 

Réf. MC 94 CPC_200 F 
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FRANÇAIS-CM. NIVEAU CM1 
CM2 SIXIEME. 


MATHS-3. ALGEBRE 
POUR LA CLASSE DE 3EME 


EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE. 


MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 


GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 


MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALES. 


GEOMETRIE PLANE ET ESPACE ET SOLIDE 
NIVEAU 4EME A TERMINALE 


MATHS-6. ALGEBRE 


POUR LA CLASSE DE 6EME 


FRANÇAIS-SONS. NIVEAU CP CEI CE2 


MATHS-5. NIVEAU 5EME 
(NOUVEAU PROGRAMME) 


MATHS-54. ALGEBRE 
POUR LES CLASSES DE 5EME ET 4EME 


MV£Aît MT£IMEU£ 
£T PR(MA(RE 


MC 13 CPC disk 200 F 


MC 05 CPC disk 200 F 


1 - Dictée : celle option permet à un instituteur ou à un parent de 
dicter un texte à l'élève avec correction automatique après une 
ou deux fautes sur chaque lettre (au choix) et avec comptage des 
foutes. 

Un fichier niveau CM 1 CM2 de 20 dictées est fourni avec ce lo¬ 
giciel mais une option de création permet de créer des dictées 
de tout niveau. 

Une option lecture permet également de lire les textes de ce fi¬ 
chier. 

2 - Participes passés avec ETRE et AVOIR : Cette option permet 
d'apprendre à accorder les participes passés avec les verbes 
ETRE et/ou AVOIR ovec sujet, complément d'objet direct ou indi¬ 
rect, masculin ou féminin, singulier ou pluriel. 

A choque faute, une explication du corrigé sera visualisée. 

Un fichier de phrases est également fourni, ainsi qu'une option 
permettant la création de ses propres fichiers d'exercices. 

3 - Conjugaison : ce module permet à l’élève d'apprendre à 
conjuguer les verbes des 3 groupes aux temps de son choix (irrv 
parroit, futur antérieur, présent...) sous la forme de phroses à 
compléter. 

A chaque foute, une explication sera visualisée et le comptage 
de points opporaîtro à la fin de l’exercice. 


- Constructions de vecteurs - Calculs sur les droites - Systèmes 
linéaires 2,2 - Régionnement du plan - Calculs sur les racines 
carrées • Notions de trigonométrie. 


MC 15 CPC disk 200 F 


Logiciel orienté sur la reconnaissance de la graphie des lettres et 
des nombres. 


MC 06 CPC disk 200 F 


- Apprentissage aes enres de l'alphobet avec image associée o 
chaque lettre. * ApDrentissage des nombres de 1 à 9. 


MC 205 CPC K7170 F 


- Equations du second degré avec interprétation graphique - Sys¬ 
tème linéaires 2.2 • Systèmes linéaires à n équations p inconnues 
(n,n<8) 


MC 18 CPC disk 200 F 


- Reconstituer des séries d’images. - Reconstituer des 
mots. - Reconstituer des séries de nombres ae 1 à 6. 


MC 07 CPC disk 250 F 


MC 206 CPC K7 200 F 


l'enfant exerce son esprit d'analyse et découvre les règles qui 
régiront ses premiers apprentissages comme l'orgonisalion du tra¬ 
vail écrit sur une page, le sens de lo lecture et de l'écriture, le te 
tour à la ligne... 


- Equations du second degré avec interprétation graphique - Courbe 
Y - f(X) avec choix du repère et des unités - Intégrales par lo mé¬ 
thode des rectongles avec interprétation graphique et exercices 

- Suites récurrentes avec graphisme - Fonctions réciproques 


MC 19 CPC disk 200 F 


Cours et exercices suivant niveau : 

le Soleil - La Terre • Les points cordinaux - Les saisons - Le relief 

- Les cours d'eou et les mers en France - Les ports en France 

- Les grandes villes - Les pays frontaliers. 


MC 01 CPC disk 200 F 
MC 210 CPC K7 170 F 


Ce logiciel propose plusieurs points d'exercices de niveau cours 
élémentaire. 


MC 08 CPC disk 200 F 


MC 20 CPC disk 200 F 


MC 207 CPC K7170 F 


- Ranger des nombres en ordre croissant et décroissant - Com¬ 
parer des nombres (supérieur inférieur) sommes produits - Comp¬ 
ter pas à pas (1, 2, 5, 10, 20, 40...) - Calculs sur les opéra¬ 
tions élémentaires (tab-ecu de double entrée) - Compter b mon¬ 
naie - lire et afficher l'heure - Déplacer une tortue (exécuter et 
retrouver) - Symétries cxioles. 


- Images par application affine - Courbes avec options (dont 
hardcopy) - Courbes superposées - Courbes définies par mor¬ 
ceaux - Familles de courbes - Courbes planes (cinématique) 

- Courbes définies par une intégrale 


Logiciel permettant de familiariser les tous jeunes lecteurs à la re¬ 
constitution, la compréhension et la structure d'une phrase. 


mcAût 

S£CD/VDA//?£ 


MC 02 CPC disk 250 F 
MC 200 CPC K7 200 F 


Ce logiciel comprena aes modules sur les calculs (opérations, 
fractions...) ou la géométrie (symétries sur repère orthonormé avec 
possibilité de construction de figures...) - Opérations verticoles 
sur des entiers (avec rerenue) - addition - soustraction - multipli¬ 
cation • division 

- Fractions simples : 

- sur des parties de rectangles, de camemberts - fractions équi¬ 
valentes - numérateurs d'une fraction... 

- Calculs d'aires : 

- carré - rectangle... avec explication des formules en cas d'er¬ 
reur 

- Calculs de volume 

- Symétrie (centrale et axiale) 

- Suites proportionnelles 

- Pourcentages 


Deux logiciels accompagnés d'explications détaillées : 

- Un utilitaire de dessin géométrique pour tracer points, droites, 
segments et cercles, le classique «TRACER à la règle et au com¬ 
pas» accompagné de commentaires et de tous les résultats de 
géométrie analytique. Une figure peut être sauvegardée ou impri¬ 
mée. 

Huit exemples classiques de constructions géométriques accom¬ 
pagnent cet utilitaire (bissectrices, tangentes...). 

- Une étude par le dessin des TRANSFORMATIONS GEOME¬ 
TRIQUES (translations, homothélie, rofotion, symétrie axiale et cen¬ 
trale, similitude) sur des figures simples (carré, triangle, bsange...). 


MC 17 CPC disk 200 F 


Ce logiciel traite des notions de fonctions et nature des groupes 
de mots constituant la phrase [sujet, verbe, complément...]. 

- Apprentissage avec rappel de cours adapté à chaque situation 

- Révision générale 

Les 220 phrases contenues dons ce logiciel sont réparties en 
2 niveaux et couvrent plus de 1400 questions. Au niveau 1, l'uti¬ 
lisateur peut commencer en CM2. 


Dessin géométrique dans l'espace : 

- Utilitaire de dessin pour tracer points, droites, segments et plans 
accompagnés de commentaires éventuels avec possibilité de sau¬ 
vegarde et d'impression, la partie importante est la perspective 
choisie. 

- La perspective «fil de fer* qui permet de refaire le tracé sous 
des ongles différents. 

- La perspective avec les plans colorés qui donne une meilleure 
visualisation. 


MC 03 CPC disk 200 F 


MC 12 CPC disk 200 F 
MC 208 CPC K7170 F 


MC 201 CPC ta 170 F 


- Opérations + - X / - Fractions - Calculs d’aires - Calculs sur 
les relatifs - Pourcentages ovec graphismes - Suites proportion¬ 
nelles avec graphisme - Symétries orthogonales. 


1 - Compléter des mots avec les sons ou syllaoes qui convien¬ 
nent avec choix entre deux sons ressemblants. 


Une représentation de SOUDES dans l'espace avec : 

- Entrée du solide de votre choix 

- Impression de fichiers de données 

- Choix des ongles de perspectives 

- Des exemples de solides (solides de PLATON, étoile de KIE 
PER...) 


2 - Compléter des phrases ovec des mots à choisir dans des 
séries de même consonance 

3 - Sélectionner dans des phrases les mots oyant tes sons indi¬ 
qués. 

Une série de sons avec niveau de difficulté progressif peuvent 
convenir aux élèves des classes de CP pour l'option 1 et aux 
élèves de CEI CE2 pour les options 2 et 3. 


MC 21 CPC disk 200 F 


MC 202 CPC K7170 F 


Fractions - Nombres relatifs - Volumes - Echelles et vitesses 
Angles - Symétries centrales 


MC 14 CPC disk 200 F 


Ce logiciel comprend une partie Questionnaire à choix multiples 
et une partie Liste de vocabulaire. 

Q.C.M. 

Permet de lester ses connaissances 

- 3 fichiers de culture générale 

- 1 fichier sur lo Révolution française 

- 1 fichier sur la langue anglaise 
VOCALIST 

Permet de tester ses connaissances sur les langues 

- 3 fichiers ANGLAIS-FRANÇAIS 

Il est possible de créer ses propres Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les langues. 


MÇ11 CPC disk 200 F 


Ce logiciel permet d'opprendre les règles principales de l'ortho¬ 
graphe en complétant des phrases (19 régies ex : à ou a, on ou 

ont...). 

A chaque faute, une explication est donnée à l'élève sous la 
forme d'une question de remplacement qui lui permettra de com¬ 
prendre son erreur. A tout moment, cette règle pourra être affi¬ 
chée pour explication. 


MC 04 CPC 200 F 


-Multiples et diviseurs d'un entier - Nombres premiers - Puis¬ 
sances d'un entier naturel - Décomposition d'un entier noturel 

- P.G.C.D. et P.P.C.M. - Calculs algébriques 

- Rationnels (simplifications et opérations de fractions) - Equa¬ 
tions et inéquations dans R 
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©ON DE COMMANDE 


A expédier à : Editions SORACOM 
La Haia de Pan - 35170 BRUZ 


lillglIllliiiiliiglIgdisiQi^ioHiiiig^MII^K^ 


Pour chaque article, entourez le ou les n° choisis . 

ANCIENS Nos AMSTAR & CPC 

N° 26-27-28-29-30-31 -32-33-34 
35 - 36 - 37 - 38 - 39 - 40 - 41 - 42 - 43 

DISQUETTES AMSTAR & CPC 

N° 20 - 21 - 22 - 23 - 24 - 25 - 26 - 27 - 28 Abonné 

(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) Non abonné 

ANCIENS Nos AMSTAR 

N» 5-6-8-9-10-11 
12-13-14-15 
16-17-18-19-20-21 
22 - 23 - 24 - 25 

DISQUETTES AMSTAR 

N° 1 (du n° 1 au 8 inclus) - N° 2 (du n° 9 au 16 inclus) 

N° 3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 

N° 10 - 11 - 13 - 16 - 18 - 23 - 24-25-26 
27 - 28 - 29 - 30 - 31 - 32 - 33 - 34 - 36 - 37 

ANCIENS Nos HORS-SERIE CPC 

N» 4-7-8-9-10-11-12-13-14-15-16 
N° 17 - 18 - 19 - 20 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 

N» 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17 
18-19 (une disquette réunit 2 numéros consécutifs de CPC) 

HS1 - HS2 - HS3 - HS4 - HS5 - HS6 - HS7 - HS8 - HS9 - HS10 - HS11 
HS12 - HS13 - HS14 - HS15 - HS16 - HS17 - HS18 - HS19 - HS20 

ABONNEMENT 6 DISQUETTES (non rétroactif) 

DISQUETTES "ARCADES" Téléchargement AMSTRAD CPC 
Câble pour téléchargement 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


iiSfôi^ibN 


REFERENCE 


Forfait port * 10 F par logiciel et 10 % pour livras 


| Pour tout envoi par avion : pour DOM-TOM et étranger 
supplément forfaitaire de 10 % par article 




Hü 


Montant 


25 F (unité) 

26 F (unité) 


110F (unité) 
140 F (unité) 

15 F (unité) 
18F (unité) 
20 F (unité) 
22 F (unité) 


110F (unité) 


25 F (unité) 


15 F (unité) 
17 F (unité) 


Abonné : 
110F (unité) 
Non abonné : 
140 F (unité) 

600 F 

60 F 
89 F 








Franco 

Franco 


Franco 

Franco 


Franco 

Franco 

Franco 

Franco 


Franco 




Franco 



Franco 

Franco 




Franco 


Franco 

Franco 










□ Facultatif : recommandé ♦ 10 F par commando 


MONTANT GLOBAL 


Je joins mon règlement : □ chèque bancaire □ chèque postal □ mandat 


Nom: _ 

Adresse: _ 



Date 


Signature 


Prénom : 


Code Postal : 


_Ville :_ 

ECRIRE EN MAJUSCULES 


10F 



Afin de fociliter le traitement des commandes, nous remercions notre aimable clien¬ 
tèle de ne pas agrafer les chèques, et de ne rien inscrire au dos. 


Commtnde : La commande doit comporter tou* las renseignements demand s suf le bon de commande (d afgnaüon ou r f rence si cette-a existe). Toute absence de pr cisions est sous la reeponsabilit de I acheteur. La vente es 
conclue d s acceptation du bon de commande par notre sod t, sur les arides disponibles uniquement 

Let prix .‘Les prix indiqu s sont valables du jour de la paru Ion du catalogue jusqu au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libeil de nos tarifs au moment de la fabrication du cataio^re, et de 
varialon de prix Importante des fournisseurs. 

Livrai»on ;La livraison intervient s lerglement Les d lais de livraison tant de 10 15 jours environ. SORACOM ne pourra te tenue pour re«>on*abte des retards dus aux Sanaporteus ou aux grves des services postaux. 

Transport ;La marchandise voyage aux risquée et pris du destinataire. La livraison se faisant par coiis postai ou par tanaporteur. Les prix indiqu s sur le bon de commande sont valables sur toute la France m tropoiitasne. + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous r servons la possibtiit d ajuster le prix de Iran^xxt en fonction du co t r ei de celui-ci. Pou b n Doter de recous possible nous invitons note aim abie citent le opter pou 
I envoi en recommand . A r cepdon des paquets, toute d t rkxatfon doit tre signai e. 
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TI4f»K 






Simple, rapide, efficace : 

Téléchargez les listings publiés dans 
le mensuel Amstar & CPC et dans le 
bimestriel CPC Hors Série. 

Il vous suffit pour cela de notre logi¬ 
ciel ARCADES, et d'un câble de liai- 
son minitel-CPC que nous pouvons vous 
fournir. 

Sur 36 15 Arcades, des jeux et des 
utilitaires, du son et du graphisme. 












, 












ATTENTION : Seul le câble Arcades fonctionne avec le 
logiciel de téléchargement. 


LA COMMUNICATION 
C’EST NOTRE METIER 


Voir bon de commande page 38 
































Media Box Disquettes 5"1/4 

182x178x348 mm ^ 

Réf. 310.501.1 


pour 70 disquettes, livré 
avec séparations et index 


Media Box 
Cassettes i 
Vidéo (L) 1 

222x135 I 
x348 mm 
Réf. 310.540.0 


Media Box Mini Cassettes 

148x91x348 
Réf. 310.503.3 


pour 9 casettes 
VHS, V2000, Betamax 


Media Box 

- ■ XT& *£' i&r C 

Compact Disc 

148x135x348 mm 
Réf; 310.502.6 


pour 13 compacts dises simples 


j Media Box 

i Disquettes 

I T-T1/2 

221x135x348 mm 
Réf. 310.506.4 


Media Box 

*; 

Data Cartridge 

222x135x348 mm 
Réf. 310.518.7 


pour 150 disquettes 


1 1 Data Cartridges 
type 3M 


Media 

Box 

Ipr Compact 
Disc Multi 

148x177 
x348 mm 
Réf. 100.525.0 
pour 23 CD simples 
ou 1 1 CD doubles 


W Media Box 

'■/J& ■ - 

Cassettes Vidéo 
VHS-C 

148x91x348 mm 
Réf. 310.505.7 iF'" 


F Media Box 
Cassettes 
Vidéo 8 

148x91x348 mm 
Réf. 310.531.6 


Media Box 
Photo ^ 


Module serrure 


222x135 ^ 
x348 mm 
Réf. 310.501.9 


Plaquettes 

couleur 


pour 140 tirages 

format maximum 13x18 plus 


^ Exemple de 

combinaison des modules 


195 F+port 


80F+port 


130 F+port 


105 F+port 


145 F+port 


130 F+port 


159 F+po 


85F+port 


85 F+port 


130F+port 


60 F+port 


Voir bon de commande page 
























































